let myRange = ActiveDocument.Range(0, 0)
myRange.InsertAfter("Demonstration of no character spacing.")
myRange.InsertParagraphAfter()
myRange.InsertAfter("Demonstration of character spacing (1.5pt).")
myRange.InsertParagraphAfter()
ActiveDocument.Paragraphs.Item(2).Range.Font.Spacing = 1.5
以下示例将所选文本的字符间距设置为 2 磅。
示例代码
if(Selection.Type == wdSelectionNormal){
Selection.Font.Spacing = 2
}
else{
MsgBox("You need to select some text.")
}