Excel转Word VBA宏触发Run-time error 462问题求助

问题根源 #

你的代码存在以下关键问题，导致第二次运行触发462错误：

• 未释放Word对象：运行结束后未关闭文档、退出Word应用，也未将对象置空，后台残留Word进程，再次创建对象时引发远程服务器访问错误。
• 依赖活动对象：使用ActiveDocument、Word.Application.Activate这类依赖当前应用状态的操作，而非直接使用声明好的wDoc和wordApp对象，极易出现对象引用失效。
• 原文件删除后无校验：第一次运行后原Word文档已被删除，第二次运行时尝试打开不存在的文件，进一步加剧错误。
• 缺少错误处理：未捕获文件访问、权限等异常，无法快速定位问题。

修复后的代码 #

Sub ExcelToWord()
    Dim wordApp As Word.Application
    Dim wDoc As Word.Document
    Dim strFile As String
    Dim newFileName As String
    
    strFile = "G:\HOME\Word File.docx"
    
    ' 检查原Word文档是否存在
    If Dir(strFile) = "" Then
        MsgBox "原Word文档不存在：" & strFile, vbExclamation
        Exit Sub
    End If
    
    On Error GoTo Cleanup ' 启用错误处理，确保对象能被正确释放
    
    ' 创建Word应用实例并打开目标文档
    Set wordApp = CreateObject("Word.Application")
    Set wDoc = wordApp.Documents.Open(strFile)
    wordApp.Visible = True ' 若无需显示Word窗口，可改为False
    
    ' 将Excel单元格内容写入Word内容控件
    With wDoc
        .ContentControls(1).Range.Text = ThisWorkbook.Sheets("Model").Cells(4, 2).Value
        .ContentControls(2).Range.Text = Format(Date, "mm/dd/yyyy")
        .ContentControls(3).Range.Text = ThisWorkbook.Sheets("Model").Range("X4").Value
    End With
    
    ' 生成新保存的文件名
    With ThisWorkbook.Sheets("Model")
        newFileName = wDoc.Path & "\" & Format(.Range("B14").Value, "YYYY") & " " & .Range("B4").Value & " " & Format(Date, "YYYY-mm-dd") & ".docx"
    End With
    
    ' 直接通过wDoc对象保存，避免依赖ActiveDocument
    wDoc.SaveAs2 Filename:=newFileName ' SaveAs2兼容Office 365新格式
    
Cleanup:
    ' 关闭文档、退出Word并释放对象，清除后台进程
    If Not wDoc Is Nothing Then
        wDoc.Close SaveChanges:=False ' 原文档无需保存，直接关闭
        Set wDoc = Nothing
    End If
    If Not wordApp Is Nothing Then
        wordApp.Quit SaveChanges:=False
        Set wordApp = Nothing
    End If
    
    ' 仅在无错误时删除原文件
    If Err.Number = 0 Then
        Kill strFile
    Else
        MsgBox "运行出错：" & Err.Description, vbCritical
    End If
End Sub

关键修改点说明 #

1. 文件存在校验：运行前先检查原文档是否存在，避免打开不存在的文件引发错误。
2. 强制对象释放：通过错误处理分支，确保无论是否报错，都能关闭文档、退出Word并清空对象引用，彻底清除后台残留的Word进程。
3. 避免依赖活动对象：所有操作直接使用声明好的wDoc和wordApp，摒弃ActiveDocument这类不稳定的状态依赖。
4. 限定工作表引用：用ThisWorkbook.Sheets("Model")替代Sheets("Model")，防止其他工作簿激活时出现引用错误。
5. 使用SaveAs2：替代旧版SaveAs方法，更好适配Office 365的文档格式要求。

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