Excel VBA宏生成Word及PDF：保存新Word文档功能故障求助

原代码存在的核心问题 #

• 路径分隔符错误：Windows系统下文件路径需用反斜杠\，而非斜杠/
• 未指定文件格式：直接存.doc后缀但未声明格式，可能导致版本兼容问题，且模板是docx格式，推荐保持格式一致
• 依赖ActiveDocument：多Word窗口场景下容易出现对象引用错误，应显式绑定打开的文档对象
• 未处理非法文件名：单元格内容可能包含/\:*?"<>|等Windows禁止的文件名字符，直接拼接会导致保存失败

修正后的代码示例 #

先确保VBA编辑器已引用Microsoft Word xx.x Object Library（路径：工具→引用），然后替换保存逻辑：

' 提前声明Word对象（放在宏开头）
Dim wordApp As Word.Application
Dim wordDoc As Word.Document

' 打开模板时绑定文档对象（替换你原有的打开模板代码）
Set wordApp = New Word.Application
Set wordDoc = wordApp.Documents.Open(ActiveWorkbook.Path & "\你的模板文件名.docx")

' --- 你的内容替换代码保持不变 ---

' 1. 处理文件名，移除非法字符
Dim fileName As String
fileName = Cells(i, 1).Value & " " & Cells(i, 35).Value & " " & Cells(i, 39).Value
' 批量替换Windows禁止的文件名字符
fileName = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(fileName, "/", ""), "\", ""), ":", ""), "*", ""), "?", ""), """", ""), "<", ""), ">", ""), "|", "")

' 2. 保存docx文档（用SaveAs2兼容新版本Office）
wordDoc.SaveAs2 _
    Filename:=ActiveWorkbook.Path & "\" & fileName & ".docx", _
    FileFormat:=wdFormatXMLDocument ' 对应docx格式，值为12

' 3. 保存PDF（如果需要）
wordDoc.ExportAsFixedFormat _
    OutputFileName:=ActiveWorkbook.Path & "\" & fileName & ".pdf", _
    ExportFormat:=wdExportFormatPDF

' 4. 清理对象，避免进程残留
wordDoc.Close SaveChanges:=False
wordApp.Quit
Set wordDoc = Nothing
Set wordApp = Nothing

额外注意事项 #

• 如果必须保存为.doc格式，将FileFormat改为wdFormatDocument（值为0），但不推荐，老格式兼容性差
• 若ActiveWorkbook.Path为空（工作簿未保存过），会导致路径无效，需提前判断并提示用户保存工作簿
• 替换内容后确保文档处于可编辑状态，无保护锁

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