Spacing 属性

返回或设置字符的间距（对于 Font 对象）、表格中单元格的间距（对于 Table 对象）或列间距（对于 TextColumns 对象），以磅为单位。Single 类型，可读写。

expression   必需。该表达式返回“应用于”列表中的一个对象。

说明

为 TextColumns 对象设置该属性后，EvenlySpaced 属性被设为 True。如果 EvenlySpaced 属性的值为 False，用 TextColumn 对象的 SpaceAfter 属性可返回或设置单个文本栏中的间距。

示例

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

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

本示例将选定文本的字符间距设置为 2 磅。

If Selection.Type = wdSelectionNormal Then
    Selection.Font.Spacing = 2
Else
    MsgBox "You need to select some text."
End If

本示例将活动文档的第一个表格中的单元格的间距设置为 9 磅。

ActiveDocument.Tables(1).Spacing = 9

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

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