Scripting 如何加上「；“编码”；VBS中Word文档另存为函数的参数？

在vbs中，如何添加“Encoding”参数以另存为ASCI格式

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

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

---

在VBA编辑器中查看MsWord帮助时，您会看到

Document

上的

SaveAs

方法的用法如下：

expression.SaveAs（文件名、文件格式、LockComments、密码、AddToRecentFiles、WritePassword、ReadOnlyRecommended、EmbeddeTrueTypeFonts、SaveNativePictureFormat、SaveFormsData、SaveAsoceLetter、编码、插入换行符、允许替换、换行符、AddBiDiMarks）

第12个参数是编码参数。搜索编码类型时（在帮助中查找

msoEncode枚举

），您将找到

msoEncodingUSASCII | 20127 |美国ASCII。

---

因此，您必须使用特定美国ASCII编码的数字20127作为编码参数。

A.docx是一个二进制文件（zip），因此将其转换为“ASCII”没有多大意义，您到底想做什么？@AlexK。完整代码通过替换字符串在word文档中进行更改。但经过更改和保存后，utf8字符问题出现在字母“u，ğ，şç，ö”中。。更改文档编码ASCII是我能在短时间内找到的唯一解决方案。