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