Word) (Styles 对象
一套 样式 对象表示文档中的内置和用户定义样式。
使用 样式 属性返回 样式 集合。 下面的示例删除活动文档中的所有用户定义样式。
For Each sty In ActiveDocument.Styles
If sty.BuiltIn = False Then sty.Delete
Next sty
使用 Add 方法创建新的用户定义样式并将其添加到 样式 集合。 下面的示例添加一个名为"简介"的新字符样式,并使其 12 磅的 arial 字体,使用粗体和斜体。 示例然后将此新的字符样式应用于所选内容。
Set myStyle = ActiveDocument.Styles.Add(Name:="Introduction", _
Type:=wdStyleTypeCharacter)
With myStyle.Font
.Bold = True
.Italic = True
.Name = "Arial"
.Size = 12
End With
Selection.Range.Style = "Introduction"
使用 样式 (索引),其中索引是样式名称、 WdBuiltinStyle 常量或索引号,返回单个 样式 对象。 您必须完全匹配的拼写和间距样式名称,但不是一定是其市值。 下面的示例修改活动文档中名为"Color"的用户定义的样式的字体。
ActiveDocument.Styles("Color").Font.Name = "Arial"
以下示例将内置"标题 1"样式设置为非加粗。
ActiveDocument.Styles(wdStyleHeading1).Font.Bold = False
样式索引编号代表样式在按字母顺序排列的样式名列表中的位置。 请注意, Styles(1)
这是按字母顺序排列列表中的第一个样式。 下面的示例显示的基本样式和样式名称的第一个样式的 样式 集合中。
MsgBox "Base style= " _
& ActiveDocument.Styles(1).BaseStyle & vbCr _
& "Style name= " & ActiveDocument.Styles(1).NameLocal
样式 对象不可用的 模板 对象。 但是,您可以使用 OpenAsDocument 若要打开一个模板作为文档,以便您可以修改模板中的样式的方法。 下面的示例更改活动文档选用的模板中标题 1 样式的格式设置。
Set aDoc = ActiveDocument.AttachedTemplate.OpenAsDocument
With aDoc
.Styles(wdStyleHeading1).Font.Name = "Arial"
.Close SaveChanges:=wdSaveChanges
End With
使用 OrganizerCopy 若要将样式文档和模板之间复制的方法。 使用 UpdateStyles 若要更新以匹配的附属模板中的样式定义为活动文档中的样式的方法。
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。