VBA: Word将.docx文件另存为.doc文件，如何另存为docx？

Question

在 Excel 中，我有一些宏可以完美运行。我对这些宏所做的是打开一个 Word 文档 (.docx)，用 Excel 文件中的数据填充书签，将单独的 Word 文档和文件名中的一些数据保存在指定的文件夹中。没什么大不了的（不再）。

问题是输入文件是 .docx 文件。输出文件为 .doc（兼容 Word 97-2003）。

如何将输出文档保存为.docx文件？我的VBA中负责保存的部分是这样的：

wordApp.DisplayAlerts = False
    WordDoc.SaveAs Filename:=ThisWorkbook.Path & "GoNoGo\GoNoGo BOL " & strVoornaam & Space(1) & strAchternaam, FileFormat:=wdFormatDocument
    WordDoc.Close
    wordApp.Quit
    Set WordDoc = Nothing
    Set wordApp = Nothing

Answer 1

有了这个：

FileFormat:=wdFormatDocument

您正在告诉 VBA 另存为 .doc。

应该是：

FileFormat:=wdFormatDocumentDefault

在此处查看可能的文件格式：

https://msdn.microsoft.com/de-de/vba/word-vba/articles/wdsaveformat-enumeration-word

VBA: Word将.docx文件另存为.doc文件，如何另存为docx？

VBA: Word saves .docx file as a .doc file, how to save as a docx?

excel

vba

ms-word

docx

doc