WritingStyleList Property

expression.WritingStyleList

expression    Required. An expression that returns a Language object.

Example

This example displays each writing style available for U.S. English. Each writing style and its number in the array are also displayed in the Immediate window of the Visual Basic editor.

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