如何使用 VBA 制作 Word 文档的无宏备份副本答案

【问题标题】：How to make a Macro-Free backup copy of a Word Document using VBA如何使用 VBA 制作 Word 文档的无宏备份副本
【发布时间】：2021-12-11 19:19:37
【问题描述】：

我有一个启用宏的 word 文档，每次我按下用户窗体上的某个命令按钮时，我想在网络上的其他地方制作我的文档的无宏备份副本。我不想使用“.SaveAs2”，因为在我点击命令按钮后我仍然想在启用宏的文档中。

在 Excel 中，我们有这个解决方法，您可以在启用宏的 Excel 文件上使用“sheets.copy”复制所有工作表，然后使用“ActiveWorkbook.另存为”方法。

【问题讨论】：

考虑使用启用宏的模板并将其用作文档模板。这将自动创建一个无宏的新文档，仍然附加到您的模板并能够使用您的用户表单。如果需要，您可以在结束用户表单时附加普通模板。然后，用户需要为新文档指定一个名称。

标签： vba ms-word

【解决方案1】：

试试这个。

Sub Word_CopyFileBasedOnActiveDocument()
    Dim wDoc As Word.Document: Set wDoc = ActiveDocument
    Dim wTmp As Word.Document

    ' Create a new document based on the active document
    Set wTmp = Application.Documents.Add(Template:=wDoc.FullName, Visible:=False)
    
    ' Save as non macro enabled
    wTmp.SaveAs2 Filename:=wDoc.Path & "\newFile.doc", FileFormat:=wdFormatXMLDocument
    
    ' Close file
    wTmp.Close False
End Sub

【讨论】：

谢谢埃利奥。您的解决方案运行良好。