如何用vba新增、修改、删除word中的制表位？

在word中制表位可以用于快速地定位、排版字符。

打开“制表位”对话框，如下图所示：

可以看到当前的默认制表位为2个字符单位，可以通过Document 对象的 DefaultTabStop 属性修改。

Sub QQ1722187970()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    With oDoc
        iOld = .DefaultTabStop
        '设置默认的制表位为原来制表位的2倍
        .DefaultTabStop = iOld * 2
    End With
End Sub

如果要新增自定义制表位，可以使用TabStops对象的 Add方法。

Sub QQ1722187970()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oSec As Section
    Dim oRng As Range
    Dim oP As Paragraph
    Dim oTS As TabStop
    With oDoc
        Set oRng = .Paragraphs(2).Range
        Set oTS = oRng.ParagraphFormat.TabStops.Add(380, wdAlignTabLeft, wdTabLeaderDots)
        With oTS
            .Alignment = wdAlignTabLeft
            .Leader = wdTabLeaderDots
            '是否是自定义制表位
            Debug.Print .CustomTab
        End With
    End With
End Sub