如何用vba设置word文档默认制表位的字符数?

如下图所示,默认制表位的字符数为2。

如果要用vba修改默认制表位的字符数,可以使用Document对象的DefaultTabStop属性。

但是Document对象的DefaultTabStop属性的设定值是以point为单位的,如果要换成以字符为单位,首先要知道1个字符代表多少厘米或英寸,然后用Application对象的CentimetersToPoints 或InchesToPoints 方法转换为point。

比如本地的word文档2个字符是0.75cm,则可以使用如下的vba代码设置默认的制表位为4个字符:

Sub QQ1722187970()
    Dim oDoc As Document
    Dim oP As Paragraph
    Dim oRng As Range
    Set oDoc = Word.ActiveDocument
    With oDoc
        '设置默认的制表位为4个字符,0.74*2厘米
       .DefaultTabStop = Word.Application.CentimetersToPoints(0.74 * 2)
        Set oP = .Paragraphs(1)
        With oP
            '悬挂缩进4个字符
            .TabHangingIndent 1
        End With
    End With
End Sub

 

       

发表评论