Question

多种对象 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 方法可将一模板作为文档打开，以修改该模板的样式。