Document.SaveEncoding (Word)

Devuelve o establece la codificación que se utilizará al guardar un documento.

ActiveDocument.SaveEncoding = msoEncodingWestern