Word) (样式对象
代表单个内置或用户定义的样式。 样式 对象包括作为 样式 对象的属性的样式属性 (如字体、 字体样式和段落间距)。 样式 对象所在的 样式 集合。 Styles 集合包含指定文档中的所有样式。
使用 样式 (索引),其中索引是样式名称、 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
若要将样式应用于范围、 段落或多个段落,设置 样式 属性设置为用户定义的或内置的样式名称。 下面的示例向活动文档中的前四个段落应用正文样式。
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 若要打开一个模板作为文档,以便您可以修改模板中的样式的方法。
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。