Show All

ActiveWritingStyle Property

Returns or sets the writing style for a specified language in the specified document. Read/write String.

Note   The WritingStyleList property returns an array of the names of the available writing styles.

expression   Required. An expression that returns a Document object.

LanguageID   Required Variant. The language to set the writing style for in the specified document. Can be either a string or one of the following WdLanguageID constants.

Remarks

Some of the constants listed above may not be available to you, depending on the language support (U.S. English, for example) that you’ve selected or installed.

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.

Sub WhichLanguage()
    Dim varLang As Variant

    varLang = Selection.LanguageID
    MsgBox ActiveDocument.ActiveWritingStyle(varLang)
End Sub