Windows 10下Word宏实现按原文件名自动备份至指定位置的问题求助及备份软件推荐

嘿，我来帮你搞定这个Word宏的问题，顺便给你推荐几个符合「设置后完全不用手动操作」要求的备份工具～

一、修改Word宏，实现自动按原文件名备份 #

你之前录制的宏会固定文件名，是因为录制过程中把当时的具体文件名硬编码进代码里了，咱们改成动态获取当前文档的名称就能解决覆盖问题。

给你一段可以直接用的VBA代码，步骤如下：

1. 打开Word，按下Alt+F11打开VBA编辑器
2. 右键点击左侧的文档对象，选择「插入」→「模块」
3. 把下面的代码粘贴进去，修改backupPath为你实际要备份的路径（比如电脑硬盘文件夹或者另一个USB的盘符路径，比如"E:\WordBackup\"）
4. 保存宏，然后可以把这个宏添加到Word的快速访问工具栏，以后点击一下就自动完成备份

Sub AutoBackupToPC()
    ' 指定备份路径，请修改为你自己的目标路径
    Dim backupPath As String
    backupPath = "D:\WordDocumentBackups\"
    
    ' 获取当前打开文档的原文件名
    Dim docName As String
    docName = ActiveDocument.Name
    
    ' 检查备份目录是否存在，不存在则自动创建
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(backupPath) Then
        fso.CreateFolder backupPath
    End If
    
    ' 先保存原文档的修改
    ActiveDocument.Save
    
    ' 将文档另存到备份路径，保留原文件名
    ActiveDocument.SaveAs2 _
        FileName:=backupPath & docName, _
        FileFormat:=ActiveDocument.FileFormat
    
    ' 如果你需要备份后自动关闭文档，取消下面这行的注释即可
    ' ActiveDocument.Close
End Sub

这段代码会自动获取当前文档的名称，不会再出现覆盖旧文件的问题，完全满足你「点击宏就自动完成备份」的需求。

二、无需手动操作的备份软件推荐 #

如果你的需求不只是Word文件，而是要备份整个USB里的内容，那这些备份软件更合适，设置好后全程自动运行：

• FreeFileSync：完全免费的同步工具，支持实时同步、定时同步。你只需设置好源文件夹（你的USB）和目标文件夹（电脑或另一个USB），选择同步模式（比如单向备份），再设置定时任务或开机自动运行，之后就不用管了，它会在后台自动完成备份。
• SyncBackFree：免费版功能足够日常使用，支持文件过滤、备份版本管理，可以设置按时间间隔自动备份，适合需要精细化管理备份内容的场景。
• GoodSync：口碑不错的付费软件，个人版价格亲民，支持实时同步、跨设备备份甚至云端备份，设置完成后全程自动运行，非常省心。

备注：内容来源于stack exchange，提问作者George Lee