Как добавить параметр «Кодировка» в функцию WordAs SaveAs в VBS?

Question

В vbs, как добавить параметр «Кодировка» для сохранения в формате ASCI?

Set sample = CreateObject("Word.Application")
sample.Visible= True
sample.DisplayAlerts= False

Set sampleDoc =sample.Documents.Open("....\asd.docx")
...
...
...
sampleDoc .SaveAs("...\chancedDoc.docx")

Answer 1

Когда вы просматриваете справку MsWord в редакторе VBA, вы видите, что метод SaveAs в Document используется как:

expression.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter, Encoding, InsertLineBreaks, AllowSubstitutions, LineEnding, AddBiDiMarks)

12-й параметр - это параметр кодирования. При поиске типов кодирования (ищите MsoEncoding Enumeration в справке), вы найдете msoEncodingUSASCII | 20127 | United States ASCII.

Таким образом, вы должны использовать номер 20127 для конкретной кодировки ASCII США в качестве параметра кодирования.