2012-03-26 24 views
0

在vbs中,如何添加「Encoding」參數以保存爲asci格式?如何在VBS中將「Encoding」參數添加到Word Document SaveAs功能?

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

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

.docx是一個二進制文件(zip),因此將其轉換爲「ascii」沒有太大意義,您究竟想要做什麼? – 2012-03-26 10:11:30

+0

@AlexK。完整的代碼通過替換字符串來更改單詞文檔。但經過修改和另存爲後,UTF8字符問題發生在像ü,Â,çç,ö等字母中。更改ASCII編碼文件是我能在短時間內找到的唯一解決方案。 – 2012-03-26 12:40:33

回答

0

正如你看看在VBA編輯器中MSWORD幫助,你看到,DocumentSaveAs方法用於這樣的:

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

第十二參數是編碼參數。當您搜索編碼類型(在幫助中查找MsoEncoding Enumeration)時,您會發現msoEncodingUSASCII | 20127 | United States ASCII.

因此,您必須使用數字20127作爲特定的美國ASCII編碼作爲編碼參數。