VBA设置Word文档Range报错：类型不匹配或对象未设置

在Excel的VBA中操作独立RTF文档，目标是替换两个标签间的特定文本。目前已实现全文档文字替换，也能获取标签间的文本，但设置Range时要么出现类型不匹配错误，要么弹出**“对象变量或With块变量未设置”**提示。

原代码 #

Public Sub WordFindAndReplaceTEST()
    Dim ws As Worksheet, msWord As Object
    Dim firstTerm As String
    Dim secondTerm As String
    Dim documentText As String
    Dim myRange As Range
    Dim startPos As Long 'Stores the starting position of firstTerm
    Dim stopPos As Long 'Stores the starting position of secondTerm based on first term's location
    Dim nextPosition As Long 'The next position to search for the firstTerm

    nextPosition = 1

    firstTerm = "<Tag2.1.1>"
    secondTerm = "</Tag2.1.1>"
    
    On Error Resume Next
    Set msWord = GetObject(, "Word.Application")
    If wrdApp Is Nothing Then
        Set msWord = CreateObject("Word.Application")
    End If
    On Error GoTo 0

    Set ws = ActiveSheet
    

    With msWord
        .Visible = True
        .Documents.Open "C:\Users\user\Desktop\ReportTest\ReportDoc.rtf"
        .Activate
        
            'Get all the document text and store it in a variable.
            documentText = .ActiveDocument.Content
            
            'Loop documentText till you can't find any more matching "terms"
            Do Until nextPosition = 0
                startPos = InStr(nextPosition, documentText, firstTerm, vbTextCompare)
                stopPos = InStr(startPos, documentText, secondTerm, vbTextCompare)
                nextPosition = InStr(stopPos, documentText, firstTerm, vbTextCompare)
            Loop
            
            Set myRange = Nothing
            myRange.SetRange Start:=startPos, End:=stopPos 'Error thrown here
            MsgBox .ActiveDocument.Range(startPos, stopPos) 'Successfully returns range as string

            With .ActiveDocument.Content.Find
                .ClearFormatting
                .Replacement.ClearFormatting

                .Text = "toReplace"
                .Replacement.Text = "replacementText"
    
                .Forward = True
                .Wrap = 1
                .format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchWildcards = False
                .MatchSoundsLike = False
                .MatchAllWordForms = False
                .Execute Replace:=2 
            End With
        
        'Overrides original
        '.Quit SaveChanges:=True
    End With
End Sub

问题根源与修正方案 #

1. 变量类型混淆

在Excel VBA环境中，Range默认指向Excel单元格区域，而非Word文档的Range对象。需将myRange声明为Object，或引用Word对象库后声明为Word.Range。

2. Word Range对象未正确初始化

代码中先执行Set myRange = Nothing，再调用SetRange，此时对象未实例化必然报错。正确做法是直接通过ActiveDocument.Range创建并初始化范围。

3. Word实例创建的笔误

错误处理中使用了未定义的wrdApp变量，应改为msWord，否则可能导致Word实例创建失败。

4. 未校验标签是否存在

Do循环结束后需先判断startPos和stopPos是否大于0，避免创建无效Range。

5. Find对象作用域错误

原代码针对整个文档执行查找替换，需改为针对目标Range操作，才能仅替换标签间的内容。

修正后的完整代码 #

Public Sub WordFindAndReplaceTEST()
    Dim ws As Worksheet, msWord As Object
    Dim firstTerm As String
    Dim secondTerm As String
    Dim documentText As String
    Dim myRange As Object ' 改为Object，避免与Excel Range混淆
    Dim startPos As Long
    Dim stopPos As Long
    Dim nextPosition As Long

    nextPosition = 1
    firstTerm = "<Tag2.1.1>"
    secondTerm = "</Tag2.1.1>"
    
    On Error Resume Next
    Set msWord = GetObject(, "Word.Application")
    If msWord Is Nothing Then ' 修正笔误：wrdApp改为msWord
        Set msWord = CreateObject("Word.Application")
    End If
    On Error GoTo 0

    Set ws = ActiveSheet

    With msWord
        .Visible = True
        .Documents.Open "C:\Users\user\Desktop\ReportTest\ReportDoc.rtf"
        
        documentText = .ActiveDocument.Content.Text ' 加上.Text获取纯文本
        
        Do Until nextPosition = 0
            startPos = InStr(nextPosition, documentText, firstTerm, vbTextCompare)
            If startPos = 0 Then Exit Do ' 提前退出循环，避免stopPos无效
            stopPos = InStr(startPos + Len(firstTerm), documentText, secondTerm, vbTextCompare) ' 跳过标签本身
            If stopPos = 0 Then Exit Do
            
            ' 直接创建Word Range对象，范围从第一个标签结束到第二个标签开始
            Set myRange = .ActiveDocument.Range(Start:=startPos + Len(firstTerm), End:=stopPos)
            
            ' 在目标Range内执行替换
            With myRange.Find
                .ClearFormatting
                .Replacement.ClearFormatting
                .Text = "toReplace"
                .Replacement.Text = "replacementText"
                .Forward = True
                .Wrap = 0 ' 对应wdFindStop，避免循环查找整个文档
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchWildcards = False
                .MatchSoundsLike = False
                .MatchAllWordForms = False
                .Execute Replace:=2 ' 对应wdReplaceAll
            End With
            
            nextPosition = InStr(stopPos, documentText, firstTerm, vbTextCompare)
        Loop
        
        ' .Quit SaveChanges:=True ' 按需启用保存
    End With
End Sub

额外说明 #

• 若引用了Word对象库（工具→引用→Microsoft Word xx.x Object Library），可将Dim myRange As Object改为Dim myRange As Word.Range，同时直接使用wdFindStop、wdReplaceAll等常量替代数值。
• 修正后的代码会循环查找所有标签对，仅替换标签内部的目标文本，不会修改标签本身。

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