Question

全部显示

应用于 LineFormat 对象的 Style 属性。

该属性返回或设置线条格式样式。MsoLineStyle，可读写。

MsoLineStyle 可以是下列 MsoLineStyle 常量之一：

msoLineSingle

msoLineThickBetweenThin

msoLineThinThick

msoLineStyleMixed

msoLineThickThin

msoLineThinThin

expression.Style

expression 必需。该表达式返回一个 LineFormat 对象。

应用于 EmailAuthor 和 Revision 对象的 Style 属性。

该属性返回一个 Style 对象，该对象代表与当前未发送的答复邮件、转发邮件或新电子邮件的作者相关联的样式。

expression.Style

expression 必需。该表达式返回上述对象之一。

应用于 Find、HeadingStyle、Paragraph、ParagraphFormat、Paragraphs、Range、Replacement、Selection 和 Table 对象的 Style 属性。

该属性返回或设置用于指定对象的样式。若要设置该属性，请指定样式的本地名称、一个整数值、一个 WdBuiltinStyle 常量或一个代表该样式的对象。若要获取有效常量的列表，请查询“Microsoft Visual Basic 对象浏览器”。Variant 类型，可读写。

expression.Style

expression 必需。该表达式返回上述对象之一。

说明

对于包含多个样式的区域，只返回第一个字符或段落的样式。

示例

当应用于 EmailAuthor 对象时。

本示例返回与当前未发送的答复邮件、转发邮件或新电子邮件作者相关联的样式，并显示与该样式相关的字体名称。

Set MyEmailStyle = _
 ActiveDocument.Email.CurrentEmailAuthor.Style
Msgbox MyEmailStyle.Font.Name

当应用于 Paragraph 对象时。

本示例显示活动文档中每个段落的样式。

For Each para in ActiveDocument.Paragraphs
 MsgBox para.Style
Next para

本示例交替设置活动文档中的所有段落为“标题 3”和“正文”样式。

For i = 1 To ActiveDocument.Paragraphs.Count
 If i Mod 2 = 0 Then
 ActiveDocument.Paragraphs(i).Style = wdStyleNormal
 Else: ActiveDocument.Paragraphs(i).Style = wdStyleHeading3
 End If
Next i

当应用于 Range 对象时。

本示例显示所选内容中每个字符的样式。Characters 集合的每个元素都是一个 Range 对象。

For each c in Selection.Characters
 MsgBox c.Style
Next c