Excel调用Word VBA操作表格时Range对象类型不匹配报错求助

1. 核心报错原因：Range对象类型不匹配 #

你在Excel VBA环境中声明Dim tblA As Range, tblB As Range, tblC As Range时，默认绑定的是Excel.Range类型，但赋值的是Word文档返回的Word.Range对象，二者属于不同办公软件的对象类型，自然会抛出类型不匹配错误。
修复方式有两种：

• 保持后期绑定（兼容不同Word版本，不需要额外设置引用）：直接把三个变量的声明改为Object类型
• 前期绑定（有代码提示）：在VBA编辑器点击「工具-引用」，勾选对应版本的Microsoft Word xx.x Object Library，再声明为Word.Range类型

2. 其他隐藏问题 #

• 常量不兼容：xlPasteValues是Excel专属的粘贴常量，Word里纯文本粘贴对应的常量是2（对应wdPasteText，后期绑定直接写数值即可）
• Selection指向错误：Excel宏里直接写Selection默认指向Excel的当前选区，不是你操作的Word应用的选区，要调用Word的选区需要写WordApp.Selection
• 笔误：第二个粘贴操作你误把tblB.PasteSpecial写成了tblA.PasteSpecial，会导致第二个表格没有粘贴内容
• 冗余操作：你三次复制的都是同一个单元格内容，只需要复制一次即可
• 资源未释放：操作完的Word文档没有关闭，会一直占用后台内存

3. 修复后的完整代码 #

Sub AddTeamColumn()
    Dim WordApp As Object, WordDoc As Object
    Dim arrFileList As Variant, Filename As Variant
    ' 改为Object类型适配Word.Range对象
    Dim tblA As Object, tblB As Object, tblC As Object

    arrFileList = Application.GetOpenFilename("Word files (*.doc; *.docx),*.doc;*.docx", 2, _
                                              "Select files", , True)

    If Not IsArray(arrFileList) Then Exit Sub

    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True

    For Each Filename In arrFileList
        Set WordDoc = WordApp.Documents.Open(Filename, ReadOnly:=False)
        
        WordDoc.Tables(3).Columns.Add
        WordDoc.Tables(4).Columns.Add
        WordDoc.Tables(5).Columns.Add
        
        Set tblA = WordDoc.Range(Start:=WordDoc.Tables(3).Cell(2, 8).Range.Start, _
                 End:=WordDoc.Tables(3).Rows.Last.Range.End)
        Set tblB = WordDoc.Range(Start:=WordDoc.Tables(4).Cell(2, 9).Range.Start, _
                 End:=WordDoc.Tables(4).Rows.Last.Range.End)
        Set tblC = WordDoc.Range(Start:=WordDoc.Tables(5).Cell(2, 5).Range.Start, _
                 End:=WordDoc.Tables(5).Rows.Last.Range.End)
                        
        ' 仅复制一次即可
        WordDoc.Tables(1).Cell(1, 1).Range.Copy
        ' 2为Word的纯文本粘贴常量wdPasteText
        tblA.PasteSpecial DataType:=2
        tblB.PasteSpecial DataType:=2
        tblC.PasteSpecial DataType:=2

        WordDoc.Save
        WordDoc.Close ' 操作完关闭文档释放资源
    Next Filename

    WordApp.Quit
    Set WordDoc = Nothing
    Set WordApp = Nothing
End Sub

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