Document.TextEncoding (Word)
Devuelve o establece la página de códigos o juego de caracteres que Microsoft Word utiliza para un documento guardado como archivo de texto codificado.
La propiedad TextEncoding establece la codificación de texto de forma independiente de codificación HTML, que se puede establecer mediante la propiedad Encoding.
Sub EncodeText()
ActiveDocument.TextEncoding = msoEncodingJapaneseShiftJIS
End Sub