[Rokuell]

Нашёл два варианта:
1. Кодировку можно выбрать при открытии:
Описание в VBA:

Код:

Function Open(FileName, [ConfirmConversions], [ReadOnly], [AddToRecentFiles], [PasswordDocument], [PasswordTemplate], [Revert], [WritePasswordDocument], [WritePasswordTemplate], [Format], [Encoding], [Visible], [OpenAndRepair], [DocumentDirection], [NoEncodingDialog], [XMLTransform]) As Document

Код:

Код:

const
 msoEncodingUTF8 = 65001;
 msoEncodingCyrillic = 1251;

NewDoc := WordApp.Documents.Open('mydoc.doc', EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, msoEncodingUTF8, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

2. А можно перегрузить документ в новой кодировке:

Код:

NewDoc.ReloadAs(msoEncodingUTF8);