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

时间:2018-07-17 19:03:51

标签: excel vba ms-word docx doc

在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

1 个答案:

答案 0 :(得分:0)

与此:

FileFormat:=wdFormatDocument

您要告诉VBA另存为.doc。

应该是:

FileFormat:=wdFormatDocumentDefault

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

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