Access VBA操作Word出现Error 462：远程服务器不存在问题求助

问题背景 #

编写了Access VBA代码，用于给锁定状态的Word表单批量添加内容控件：将以|分隔的地址数据拆分后，先更新已有内容控件，再向下逐行添加新内容控件填充剩余地址。逐行调试时一切正常，但直接执行时，在Selection.MoveDown行崩溃，排查后确认是未限定对象引用导致的问题。

示例地址数据：Mike Smith|Piscataway, NJ 08854，目标内容控件标题为Claimant Address。

现有代码 #

Word应用与文档声明代码 #

If GetDocType("qryGetForms", DocumentNumber) = DocType.Word Then
    FileType = "Word"
    FileExt = ".dotx"
Else
    Set app = GetObject(, FileType & ".Application")
    If Err.Number <> 0 Then
        AppWasOpen = False
        Set app = CreateObject(FileType & ".Application")
    Else
        AppWasOpen = True
        Err.Clear ' 清除错误对象
    End If
End If
Set docs = app.Documents
Set doc = docs.Add(PathAndFile)

核心内容控件操作代码 #

Dim wordContentControl As Object
Dim wordRange As Object

' 按|拆分地址行
AddressLines = Split(AddressToFill, "|")
' 更新第一个已有内容控件
If doc.ContentControls.Count > 0 Then
    AddressLine = Trim(AddressLines(0))
    If AddressLine <> "" Then
        doc.SelectContentControlsByTitle(fieldName).Item(1).Range.Text = AddressLine
        Set wordRange = doc.SelectContentControlsByTitle(fieldName).Item(1).Range
    End If
End If
    
' 为后续地址行添加新内容控件
For i = LBound(AddressLines) + 1 To UBound(AddressLines)
    AddressLine = Trim(AddressLines(i))
    If AddressLine <> "" Then
        wordRange.Collapse Direction:=wdCollapseEnd
        doc.Activate
        Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdMove
        ' 创建新内容控件
        j = i + 1
        Set wordContentControl = Selection.ContentControls.Add(wdContentControlText)
        wordContentControl.Title = fieldName & "_Line" & j
        wordContentControl.Tag = "AddressLine" & j
        
        ' 设置内容控件文本
        Set wordRange = wordContentControl.Range
        wordRange.Text = AddressLine
    Else
        Exit For
    End If
Next i

错误原因 #

崩溃行Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdMove的问题在于：

• Selection是未限定的对象引用，默认指向当前激活的Office应用（可能是Access而非Word）
• 直接运行时，Word文档的激活状态可能未及时生效，导致Selection对象不存在或指向错误
• 调试时手动逐行执行会触发界面激活，因此问题不会暴露

修复方案 #

核心原则：完全限定所有Word对象引用，避免依赖界面级的Selection操作，改用基于文档对象的Range操作

修复后的核心代码 #

Dim wordContentControl As Object
Dim wordRange As Object
' 提前定义Word常量（Access默认不加载Word库，避免常量未定义错误）
Const wdCollapseEnd = 0
Const wdParagraph = 4
Const wdContentControlText = 0

' 按|拆分地址行
AddressLines = Split(AddressToFill, "|")
' 更新第一个已有内容控件
If doc.ContentControls.Count > 0 Then
    AddressLine = Trim(AddressLines(0))
    If AddressLine <> "" Then
        With doc.SelectContentControlsByTitle(fieldName).Item(1)
            .Range.Text = AddressLine
            Set wordRange = .Range
        End With
    End If
End If
    
' 为后续地址行添加新内容控件
For i = LBound(AddressLines) + 1 To UBound(AddressLines)
    AddressLine = Trim(AddressLines(i))
    If AddressLine <> "" Then
        ' 折叠到当前内容控件末尾，插入新段落
        wordRange.Collapse Direction:=wdCollapseEnd
        wordRange.InsertParagraphAfter
        ' 移动Range到新段落位置
        wordRange.MoveStart Unit:=wdParagraph, Count:=1
        wordRange.MoveEnd Unit:=wdParagraph, Count:=1
        
        ' 直接在指定Range创建内容控件，无需依赖Selection
        j = i + 1
        Set wordContentControl = doc.ContentControls.Add(wdContentControlText, wordRange)
        wordContentControl.Title = fieldName & "_Line" & j
        wordContentControl.Tag = "AddressLine" & j
        
        ' 设置内容并更新Range
        wordContentControl.Range.Text = AddressLine
        Set wordRange = wordContentControl.Range
    Else
        Exit For
    End If
Next i

关键修复点 #

1. 替换未限定的Selection：删除所有Selection相关代码，改用doc对象的Range操作，完全脱离界面依赖
2. 限定对象引用：所有Word对象（如ContentControls、Range）都明确通过doc或app调用，避免上下文混淆
3. 定义Word常量：Access默认不加载Word对象库，手动定义所需常量（如wdCollapseEnd），避免常量未定义错误
4. 移除不必要的doc.Activate：无需激活文档即可通过对象引用完成所有操作，提升代码稳定性

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