VBA:Word将.docx文件保存为.doc文件,如何保存为docx



在Excel中,我有一些宏可以完美地工作。我使用这些宏所做的是打开一个Word文档(.docx(,用Excel文件中的数据填充书签,将文件名中包含一些数据的单独Word文档保存在指定的文件夹中。没什么大不了的。

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

如何将输出文档保存为.docx文件?我的VBA中负责保存的部分是:

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

使用此:

FileFormat:=wdFormatDocument

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

应该是:

FileFormat:=wdFormatDocumentDefault

在这里查看可能的文件格式:

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

最新更新