WritingStyleList 属性

该属性返回一个字符串数组，该数组包含可用于指定语言的所有写作风格的名称。Variant 类型，只读。

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

示例

本示例显示可用于美国英语的所有写作风格。在“Visual Basic 编辑器”的“立即”窗口中也显示每一种写作风格及其在数组中的编号。

Sub WritingStyles()
    Dim WrStyles As Variant
    Dim i As Integer

    WrStyles = Languages(wdEnglishUS).WritingStyleList
    For i = 1 To UBound(WrStyles)
        MsgBox WrStyles(i)
        Debug.Print WrStyles(i) & " [" & Trim(Str$(i)) & "]"
    Next i
End Sub