本示例演示活动文档开头的两种不同字符间距。

Set myRange = ActiveDocument.Range(Start:=0, End:=0)
With myRange
    .InsertAfter "Demonstration of no character spacing."
    .InsertParagraphAfter
    .InsertAfter "Demonstration of character spacing (5.5pt)."
    .InsertParagraphAfter
End With
ActiveDocument.Paragraphs(2).Range.Font.Spacing = 5.5

 

本示例设置活动文档的格式,并以 0.5 英寸(36 磅)的栏间距显示两栏中的文字。

With ActiveDocument.PageSetup.TextColumns
    .SetCount NumColumns:=2
    .LineBetween = False
    .EvenlySpaced = True
    .Spacing = 36
End With