Word VBA教程:Style对象

多种对象
Styles (Style)
多种对象

该对象代表一个内置或用户定义的样式。Style对象将样式属性(字体、字体样式、段落间距等等)表示为 Style对象的属性。Style对象是Styles集合的一个成员。Styles集合包含了指定文档的所有样式。

使用 Style对象

可使用 Styles(index) 返回一个 Style对象,其中 index 为 WdBuiltinStyle 常量或索引号。样式名的拼写和间隔必须正确,而大小写则无关紧要。下例更改活动文档中用户定义样式“Color”中的字体名称。


ActiveDocument.Styles("Color").Font.Name = "Arial"

下例将内置标题 1 样式设置为非粗体。


ActiveDocument.Styles(wdStyleHeading1).Font.Bold = False

样式索引号代表以字母顺序排列的样式名列表中该样式的位置。注意Styles(1) 为字母顺序列表中的第一个样式。下例显示 Styles集合中第一个样式的基本样式和样式名称。


MsgBox "Base style= " _
    & ActiveDocument.Styles(1).BaseStyle & vbCr _
    & "Style name= " & ActiveDocument.Styles(1).NameLocal

Style属性设为用户定义或内置样式名,即可在范围、段落或多个段落中应用该样式。下例将常用样式应用于活动文档的前四段。


Set myRange = ActiveDocument.Range( _
    Start:=ActiveDocument.Paragraphs(1).Range.Start, _
    End:=ActiveDocument.Paragraphs(4).Range.End)
myRange.Style = wdStyleNormal

下例将“标题 1”样式应用于所选内容的第一段。


Selection.Paragraphs(1).Style = wdStyleHeading1

下例生成一名为“Bolded”的字符样式并应用于所选内容。


Set myStyle = ActiveDocument.Styles.Add(Name:="Bolded", _
    Type:=wdStyleTypeCharacter)
myStyle.Font.Bold = True
Selection.Range.Style = "Bolded"

说明

使用OrganizerCopy方法可在文档和模板之间复制样式。使用UpdateStyles方法可更新活动文档中的样式(和附加模板中的样式相匹配)。使用OpenAsDocument方法可将一模板作为文档打开,以修改该模板的样式。

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号