Excel VBA调用Word文档首次正常，二次执行报462错误求助

错误原因分析 #

你遇到的462错误，核心问题在于代码依赖了全局的ActiveDocument对象。第一次运行时，Word的活动文档确实是你打开的目标文档，但第二次执行时，可能存在Word进程残留、ActiveDocument指向失效的情况，导致程序找不到对应的远程服务器对象。

修正方案：显式引用文档对象 #

把依赖ActiveDocument的地方全部替换为显式声明的文档对象变量，确保所有操作都针对你打开的特定文档，同时完善资源清理逻辑。

修正后的代码：

Private Sub btnEdit_Click()
    Dim strFN As String
    Dim wdApp As Object
    Dim wdDoc As Object ' 新增文档对象变量
    strFN = "C:\Test Document.docx"

    On Error GoTo Cleanup ' 增加错误处理，确保异常时也能清理资源
    
    Set wdApp = CreateObject("Word.Application")
    Set wdDoc = wdApp.Documents.Open(strFN) ' 显式存储打开的文档对象

    wdApp.Visible = True

    With wdDoc.Range.Find ' 用wdDoc替代ActiveDocument
      .Text = "<<statename>>"
      .Replacement.Text = "Colorado"
      .Replacement.ClearFormatting
      .Replacement.Font.Italic = False
      .Forward = True
      .Wrap = 1 ' 用数值替代wdFindContinue常量（后期绑定无需引用Word库）
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute Replace:=2 ' 用数值替代wdReplaceAll常量
    End With

    ' 用wdDoc替代ActiveDocument，指定FileFormat为数值（后期绑定兼容）
    wdDoc.SaveAs Filename:="c:\Temp\TestDoc.pdf", FileFormat:=17
    wdDoc.Close SaveChanges:=0 ' 用数值替代wdDoNotSaveChanges常量

Cleanup:
    ' 确保Word进程退出
    If Not wdApp Is Nothing Then
        wdApp.Quit
        Set wdApp = Nothing
    End If
    Set wdDoc = Nothing ' 释放文档对象
End Sub

关键修改点说明 #

• 新增wdDoc变量存储打开的文档，避免依赖ActiveDocument的上下文关联
• 后期绑定模式下，用对应常量的数值替代命名常量（比如wdFindContinue=1、wdReplaceAll=2、wdFormatPDF=17、wdDoNotSaveChanges=0），无需引用Word对象库，避免版本兼容问题
• 增加错误处理标签Cleanup，确保无论程序是否抛出异常，都能释放Word应用和文档对象，彻底清理资源

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