Word VBA教程:Style属性

应用于 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   必需。该表达式返回上述对象之一。

说明

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

VBA示例

当应用于 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

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号