Word VBA教程:Spacing属性

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

expression.Spacing

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

说明

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

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号