vba调用计算机,运行到错误462：通过Excel VBA使用WORD时,远程服务器计算机不存在...

我一直试图在excel vba中以编程方式打开一个word文件,并使用书签在其中添加/编辑内容.但是,我发现在备用运行中,我得到’错误462：远程服务器不存在“错误.我研究了很多并且理解这有事做”不合格的引用;

但是,我不明白如何将下面的代码片段更正为限定引用？有人可以帮忙吗？

Set exR = ActiveSheet.Range(TestIdCol & CStr(DataRowNum) & ":" & TestIdCol & CStr(RowEnd))

ExistingEvidenceDoc = UseFileDialogOpen("Word Documents", "*.doc;*.docx")

Set objWord = CreateObject("Word.Application")

If ExistingEvidenceDoc <> "" Then

Set objDoc = objWord.Documents.Open(ExistingEvidenceDoc)

Else

Exit Sub

End If

objWord.Visible = True

Application.Wait Now() + TimeSerial(0, 0, 5)

Set objSelection = objWord.Selection

getExistingEvidences = ExistingTestEvidences(objDoc)

o = DataRowNum

For Each cell In exR

If cell.Value <> "" And Not IsInArray(cell.Value, getExistingEvidences) Then

objSelection.Style = ActiveDocument.Styles("Heading 1")

objSelection.TypeText text:="Heading " + cell.Value

objSelection.TypeParagraph

objSelection.MoveLeft

objSelection.HomeKey Unit:=wdLine

objSelection.EndKey Unit:=wdLine, Extend:=wdExtend

objDoc.Bookmarks.Add Name:="BMrk" + CStr(o), Range:=objSelection

objSelection.Copy

ActiveSheet.Range("Q" + CStr(o)).Select

ActiveSheet.PasteSpecial Format:="Hyperlink", Link:=False, DisplayAsIcon _

:=False

objSelection.MoveRight

'objSelection.Style = ActiveDocument.Styles("Paragraph")

objSelection.TypeText text:=Range(DescriptionCol + CStr(cell.Row)).Value

objSelection.TypeParagraph

ElseIf IsInArray(cell.Value, getExistingEvidences) = False Then

objSelection.EndKey

objSelection.Style = ActiveDocument.Styles("Heading 1")

objSelection.TypeText text:="Heading " + cell.Value

objSelection.TypeParagraph

objSelection.MoveLeft

objSelection.HomeKey Unit:=wdLine

objSelection.EndKey Unit:=wdLine, Extend:=wdExtend

objDoc.Bookmarks.Add Name:="BMrk" + CStr(o), Range:=objSelection

objSelection.Copy

ActiveSheet.Range("Q" + CStr(o)).Select

ActiveSheet.PasteSpecial Format:="Hyperlink", Link:=False, DisplayAsIcon _

:=False

objSelection.MoveRight

'objSelection.Style = ActiveDocument.Styles("Paragraph")

objSelection.TypeText text:=Range(DescriptionCol + CStr(cell.Row)).Value

objSelection.TypeParagraph

End If

o = o + 1

Next cell

MyErrorHandler:

MsgBox "SeeHeadingPageNumber" & vbCrLf & vbCrLf & "Err = " & Err.Number & vbCrLf & "Description: " & Err.Description

另外,无论我定义的exR范围如何,它都会完成整个范围的执行,但最后调用了MyErrorHandler,我不明白为什么？这有什么理由吗？

请伙计们,帮助我…非常感谢你的帮助.

提前致谢