【Word VBA/マクロ】カーソル位置にタブ追加

サンプルコードでできること

カーソルの位置にタブを追加します。
ルーラーのタブボタンから、タブの種類の選択なしでタブを追加できます。

Sub 左タブを追加()
    AddTab wdAlignTabLeft
End Sub

Sub 右タブ追加()
    AddTab wdAlignTabRight
End Sub

Sub 中央タブ追加()
    AddTab wdAlignTabCenter
End Sub

Private Sub AddTab(stHaichi As String)
'カーソルの位置にタブを追加します
    Dim posi As Single

    'カーソル位置
    posi = Selection. _
        Information(wdHorizontalPositionRelativeToTextBoundary)

        Selection.ParagraphFormat.TabStops.Add _
            Position:=posi, Alignment:=stHaichi, _
            Leader:=wdTabLeaderSpaces
End Sub

コードの説明

    posi = Selection. _
        Information(wdHorizontalPositionRelativeToTextBoundary)

カーソル位置を変数に格納します。

        Selection.ParagraphFormat.TabStops.Add _
            Position:=posi, Alignment:=stHaichi, _
            Leader:=wdTabLeaderSpaces

変数stHaichiには、「wdAlignTabLeft」「wdAlignTabRight」など、タブの種類が入ります。
「Leader」はタブのリーダーです。「wdTabLeaderSpaces」はスペースで、既定値のためなくてもOKです。

ほかの種類はこちらです。
破線　wdTabLeaderDashes
点線　wdTabLeaderDots
中点　wdTabLeaderMiddleDot
太線　wdTabLeaderHeavy
二重線　wdTabLeaderLines