WritingStyleList Property 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 in the Visual Basic editor.

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