ActiveWritingStyle Property Example

This example sets the writing style used for French, German, and U.S. English for the active document. You must have the grammar files installed for French, German, and U.S. English to run this example.

With ActiveDocument
    .ActiveWritingStyle(wdFrench) = "Commercial"
    .ActiveWritingStyle(wdGerman) = "Technisch/Wiss"
    .ActiveWritingStyle(wdEnglishUS) = "Technical"
End With

This example returns the writing style for the language of the selection.

myLang = Selection.LanguageID
MsgBox ActiveDocument.ActiveWritingStyle(myLang)