Word VBA宏保存文档到指定文件夹的代码问题求解

你写的代码是Excel VBA的写法，直接放到Word环境运行必然报错，核心问题有2个：

• ActiveWorkbook是Excel独有的活动工作簿对象，Word VBA里代表当前打开文档的对象是ActiveDocument
• SaveAs方法仅传入文件夹路径无效，必须拼接完整的文件保存路径（文件夹+文件名+后缀），同时最好明确指定文件保存格式，避免出现格式兼容弹窗。

Sub Test1()
    Dim path As String
    Dim fullSavePath As String
    
    ' 配置目标保存文件夹
    path = "C:\Users\aroldan\OneDrive\Documents\02 - PENDING\"
    ' 拼接完整保存路径：文件夹+当前文档原有文件名，新文档会默认用"文档X"的名称保存
    fullSavePath = path & ActiveDocument.Name
    ' 处理未保存过的新文档无后缀的情况
    If InStr(ActiveDocument.Name, ".") = 0 Then
        fullSavePath = fullSavePath & ".docx"
    End If
    
    Application.DisplayAlerts = wdAlertsNone
    ' Word环境下调用文档对象的SaveAs2方法保存，指定格式为标准docx
    ActiveDocument.SaveAs2 _
        FileName:=fullSavePath, _
        FileFormat:=wdFormatXMLDocument
    Application.DisplayAlerts = wdAlertsAll
    
    ' 保存完成后关闭文档
    ActiveDocument.Close
End Sub

• 如果需要保存为兼容旧版Word的.doc格式，把FileFormat参数值替换为wdFormatDocument即可
• 运行代码前请确认你填写的目标文件夹真实存在，否则会触发路径不存在的报错，有需要也可以自行增加自动创建文件夹的逻辑
• 不同Office组件的VBA对象模型不通用，写Word宏不要直接照搬Excel VBA里的对象名，比如Workbook、Worksheet这类对象在Word里是不存在的。

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