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