タブ位置をお手軽に設定するアドイン（Word用） - 素人がExcelVBAによる「一人働き方改革」に挑むブログ

タブ位置を気軽に設定するアドイン

akashi-keirin.hatenablog.com

これをもとに、アドイン化してみた。

コード

ごちゃごちゃなしでコードを全部載せる。

リスト１　標準モジュール

Public Sub タブ位置設定()
  Dim objDoc As Document
  Set objDoc = ActiveDocument
  Dim tmpStr As String
  tmpStr = InputBox( _
             Prompt:="指定したいタブ位置(整数値)を｢,｣(半角カンマ)区切りで入力せよ。" _
                     & vbCrLf & _
                     "※小数値は、小数部分を丸めて整数値として扱います。", _
             Title:="タブ位置の指定")
'///ガード節その１'
'///何も入力されなかったら処理を抜ける（キャンセルの場合も同じ）。'
  If tmpStr = "" Then Exit Sub
'///ガード節その２'
'///半角カンマが全くないのに、入力された値が数値として評価できない値だったら処理を抜ける。'
  If InStr(tmpStr, ",") = 0 And _
     Not IsNumeric(tmpStr) Then
     Call makeUserSick("数字と半角カンマで入力せんかいぼけー！")
     Exit Sub
  End If
'///ガード節その３'
'///カンマ区切りで入力された値に、数値以外が入っていたら処理を抜ける。'
  Dim positionsArray As Variant
  positionsArray = Split(tmpStr, ",")
  Dim maxPositions As Integer
  maxPositions = UBound(positionsArray) + 1
  Dim i As Integer
  For i = 1 To maxPositions
    If Not IsNumeric(positionsArray(i - 1)) Then
      Call makeUserSick("数字以外入れんなぼけー！")
      Exit Sub
    End If
  Next
'///ここから処理の本体'
'///一旦選択位置のタブをクリア。'
  Selection.ParagraphFormat.TabStops.ClearAll
'///選択位置のフォントサイズを取得'
  Dim p As Single
  p = Selection.Font.Size
'///タブを設定'
  For i = 1 To maxPositions
    With Selection.ParagraphFormat.TabStops
      .Add CInt(positionsArray(i - 1)) * p
    End With
  Next
End Sub

説明はコード中にコメントとして入れたので、今回は説明は省略。