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

Question

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

在 Excel 中，我们有这个解决方法，您可以在启用宏的 excel 文件上使用“sheets.copy”复制所有工作表，然后保存新创建的工作簿（现在是无宏工作簿）任何你想使用“ActiveWorkbook.SaveAs”方法的地方。

Answer 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

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

How to make a Macro-Free backup copy of a Word Document using VBA

vba

ms-word