如下图所示,默认制表位的字符数为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


发表评论