Propriedade Document.ActiveWritingStyle (Word)

Retorna ou define o estilo de texto para um idioma especificado no documento especificado. Cadeia de caracteres de leitura/gravação.

Sintaxe

expression. ActiveWritingStyle( _LanguageID_ )

expressão Obrigatório. Uma variável que representa um objeto Document.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
LanguageID	Obrigatório	Variant	O idioma para definir o estilo de escrita no documento especificado. Pode ser uma cadeia de caracteres ou uma das seguintes constantes WdLanguageID. Algumas das constantes WdLanguageID podem não estar disponíveis para você, dependendo do suporte a idioma (inglês americano, por exemplo) que você selecionou ou instalou.

Comentários

A propriedade WritingStyleList retorna uma matriz de nomes de estilos de texto disponíveis.

Exemplo

Este exemplo define o estilo de texto usado para francês, alemão e inglês americano no documento ativo. Para executar este exemplo, você deve ter os arquivos de gramática instalados para francês, alemão e inglês americano.

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

Este exemplo retorna o estilo de texto para o idioma da seleção.

Sub WhichLanguage() 
 Dim varLang As Variant 
 
 varLang = Selection.LanguageID 
 MsgBox ActiveDocument.ActiveWritingStyle(varLang) 
End Sub

Confira também

Objeto Document

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.