Word.Application SaveCopyAs未知的運行時錯誤：800A1704

Question

我編寫了VBScript將Word 97-2003文檔轉換為Word 2016文檔（我在64位企業版Windows 10 v1709上安裝了Microsoft Office 2016）。

這是重現該問題的最少代碼：

Dim Word, DOC, FSO, Dir
Set Word = CreateObject("Word.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Dir = FSO.GetFolder(".")

Dim FileName
FileName = Dir.Path & "\test.doc"
Set DOC = Word.Documents.Open(FileName)
DOC.SaveCopyAs FileName & "x"
DOC.Close
Word.Quit

打開Word，創建一個空白文檔，並將其另存為“ Word 97-2003 Document”，文件名為test.doc ，並將其放置在與VBScript相同的目錄下。 然后運行腳本。

但是，如果您稍微修改了上面的腳本，並嘗試將.xls轉換為.xlsx或將.ppt轉換為.pptx ，則可以正常工作。 實際上，該代碼已從我之前編寫的完全可用的PPT轉換為PPTX轉換器。 在同一系統上使用PowerPoint 2016時，它運行良好，沒有任何問題。 將XLS轉換為XLSX轉換器的另一項修改也與Excel 2016一起使用。

我的Google-fu沒有做任何有用的工作，也沒有重新安裝Office 2016幫助。 我還嘗試了另外兩台新安裝了Windows 10 v1709 Enterprise和Office 2016（均為64位）的計算機，並且出現了相同的錯誤。

知道如何使用當前的VBScript將其另存為DOCX嗎？

Answer 1

僅通過記錄宏，便生成了以下代碼，用於將單詞從.doc保存為.docx擴展名

DOC.SaveAs2 FileName &"x",12,,,,,,,,,,15    'FileFormat = 12; WdSaveFormat =15