Document.ActiveWritingStyle Property (Word)

Office 2013 and later

Contribute to this content

Use GitHub to suggest and submit changes. See our guidelines for contributing to VBA documentation.

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

expression .ActiveWritingStyle(LanguageID)

expression Required. A variable that represents a Document object.




Data Type





The language to set the writing style for in the specified document. Can be either a string or one of the following WdLanguageID constants. Some of the WdLanguageID constants may not be available to you, depending on the language support (U.S. English, for example) that you have selected or installed.

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

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