Document.SaveEncoding (Word)

Returns or sets the encoding to use when saving a document.

ActiveDocument.SaveEncoding = msoEncodingWestern