在 Microsoft Word 中使用 VBA 更新 DOCX 版本

Question

在 Adobe Acrobat 中将 PDF 导出为 DOCX 时，文件会保存在旧版本（2010？）中，该版本缺乏对最新 Word 功能的支持。升级到最新版本的唯一方法是通过 Word 中的“另存为”菜单，取消选中保持向后兼容性的选项（单独使用“保存”不会更新它）。我想使用一个宏来自动执行此过程，该宏保存所有打开的 DOCX 文件并将它们更新到最新的 DOCX 版本（2016？）。

我尝试了以下代码，但它不起作用，文档已保存但未更新：

Sub SaveAllDOCXToLastVersion()
    Dim doc As Document
    For Each doc In Application.Documents
        Dim newName As String
        newName = doc.Path & "\" & Replace(doc.Name, ".", "_") & ".docx"
        doc.SaveAs2 FileName:=newName, FileFormat:=wdFormatXMLDocument
    Next doc
    MsgBox "OK!"
End Sub

是否有任何方法可以从 VBA 指定要保存的 DOCx 版本，或者如果没有，是否有任何替代方法来实现我正在寻找的功能？

Answer 1

您可以使用像DocTo这样的工具来实现此目的。 全面披露 我是 DocTo 的作者。

您可以将目录中的所有word文档转换为最新版本的word。通过使用这样的命令。

docto -f“C:\Folder\With\OldFiles”-O“C:\Folder\For\NewFiles” -T wdFormatDocumentDefault -C 65535