Document.TextEncoding (Word)

Retorna ou define a página de código ou conjunto de caracteres que o Microsoft Word usa para um documento salvo como um arquivo de texto codificado. Leitura/gravação MsoEncoding.

A propriedade TextEncoding define a codificação de texto separadamente da codificação HTML, que pode ser definida usando a propriedade Encoding. Para definir a codificação de texto para todos os documentos salvos como arquivos de texto, use a propriedade DefaultTextEncoding.

Sub EncodeText() 
 ActiveDocument.TextEncoding = msoEncodingJapaneseShiftJIS 
End Sub