Document.SaveEncoding (Word)

Retorna ou define a codificação a ser usado ao salvar um documento. Leitura/gravação MsoEncoding.

ActiveDocument.SaveEncoding = msoEncodingWestern