Document.ActiveWritingStyle (Word)

Devuelve o establece el estilo de escritura para un idioma especificado en el documento especificado.

La propiedad WritingStyleList devuelve una matriz de los nombres de los estilos de escritura disponibles.

ActiveWritingStyle (LanguageID)

LanguageID: El idioma que se va a establecer el estilo de escritura en el documento especificado.

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