如何使用VBA为Macro-Enabled Word文档制作不切换原文件的Macro-Free备份

核心逻辑和Excel的工作表复制逻辑一致，全程不会修改你当前正在编辑的启用宏文档，也不会切换活动窗口：新建空白临时文档→全量复制原文档的所有内容、格式、配置到临时文档→将临时文档另存为无宏格式到目标路径→关闭临时文档即可。你担心的SaveAs2方法修改原文档的问题不会出现，这里的SaveAs2仅作用于临时生成的新文档，原文档全程保持活动可编辑状态。

VBA 实现代码 #

直接将以下代码插入到你用户窗体对应命令按钮的点击事件中即可：

Private Sub 你的命令按钮名称_Click()
    Dim originalDoc As Document
    Dim newDoc As Document
    Dim targetPath As String
    Dim backupFileName As String
    
    ' 绑定当前的启用宏源文档
    Set originalDoc = ThisDocument
    ' 替换为你的实际网络存储路径，末尾保留反斜杠
    targetPath = "\\网络设备地址\备份存储目录\"
    ' 生成备份文件名，示例规则为 原文件名_备份_年月日时分秒，避免重名覆盖
    backupFileName = Left(originalDoc.Name, InStrRev(originalDoc.Name, ".") - 1) & "_备份_" & Format(Now(), "yyyyMMddHHmmss")
    
    ' 新建空白临时文档
    Set newDoc = Documents.Add
    ' 复制原文档所有带格式的主内容
    originalDoc.Content.FormattedText.Copy
    newDoc.Content.PasteAndFormat wdFormatOriginalFormatting
    
    ' 同步原文档的页面设置、页眉页脚配置
    newDoc.PageSetup = originalDoc.PageSetup
    Dim sec As Section, head As HeaderFooter, foot As HeaderFooter
    For Each sec In originalDoc.Sections
        For Each head In sec.Headers
            newDoc.Sections(sec.Index).Headers(head.Index).Range.FormattedText = head.Range.FormattedText
        Next
        For Each foot In sec.Footers
            newDoc.Sections(sec.Index).Footers(foot.Index).Range.FormattedText = foot.Range.FormattedText
        Next
    Next
    
    ' 将临时文档保存为无宏docx格式
    newDoc.SaveAs2 Filename:=targetPath & backupFileName & ".docx", FileFormat:=wdFormatXMLDocument
    ' 关闭临时文档，无保存提示
    newDoc.Close SaveChanges:=wdDoNotSaveChanges
    
    ' 可选：备份完成提示
    MsgBox "无宏备份已生成，路径：" & targetPath & backupFileName & ".docx", vbInformation
End Sub

注意事项 #

• 如果运行时提示wdFormatXMLDocument常量未定义，直接将该常量替换为数值12即可，这是Word无宏docx格式对应的内置文件格式编号
• 运行代码前请确认你对配置的网络存储路径有读写权限
• 如果你的文档包含宏按钮、宏相关的控件，复制到新文档后会自动失效，符合无宏备份的要求

内容的提问来源于stack exchange，提问作者Milad