Article ID: 183992
Article Last Modified on 6/17/2005
Sub GetWritingStyles()
' Dimension the array as type "variant."
Dim WrStyles As Variant
Dim iCount As Integer
' Assign the values to the array.
WrStyles = Languages(wdEnglishUS).WritingStyleList
' Loop the number of items in the array and display
' each item and its array position.
For iCount = 1 To UBound(WrStyles)
MsgBox WrStyles(iCount)
Next iCount
End Sub
176476 OFF: Office Assistant Not Answering Visual Basic Questions
181058 OFF98: How to Run Sample Code from Knowledge Base Articles
163435 VBA: Programming Resources for Visual Basic for Applications
Additional query words: wordcon vb vba vbe
Keywords: kbmacroexample kbprb kbdtacode KB183992