使用Excel VBA提取Word文档数据时出现String Type Mismatch错误如何解决

• 空对象调用错误：如果Word文档中第一个表格是文档开头的首个元素，其前方没有任何段落内容时，WTab(1).Range.Paragraphs(1).Previous会返回空对象Nothing，此时直接访问.Range.Text属性会触发类型不匹配错误，空对象不存在可读取的文本属性。
• 变量名拼写不一致：你声明的变量为StartTbl，但实际赋值、使用的变量为StartTble，二者拼写差一个字母e。如果未开启强制变量声明，未定义的StartTble会被识别为变体类型，赋值异常时也会触发类型不匹配。
• 未显式声明Rnd_Search变量：如果Rnd_Search未被定义为字符串类型，当读取到的内容为空或非文本格式时，InStr函数接收的参数类型不符合要求，也会触发报错。
• 边界场景遗漏：如果文档中总表格数不足2个，当判断需要取WTab(2)时也会触发类型不匹配/索引越界错误。

1. 首先在代码模块顶部添加Option Explicit，强制所有变量必须先声明才能使用，自动排查变量拼写错误。
2. 增加空对象判断、表格数量校验逻辑，避免空值、索引越界问题。
3. 统一变量名，修正拼写错误。

修正后的参考代码如下：

Option Explicit ' 放在模块最顶部

' 原有变量声明补充修正
Dim Rnd_Search As String
Dim StartTble As Integer ' 统一变量名
Set WApp = CreateObject("Word.Application")
Set WDoc = WApp.Documents.Open(PathName)
Set WTab = WDoc.Tables

' 先校验表格数量是否符合要求
If WTab.Count < 1 Then
    MsgBox "文档中无可用表格"
    ' 此处可自定义后续退出/处理逻辑
End If

' 判断表格前是否有内容
If Not WTab(1).Range.Paragraphs(1).Previous Is Nothing Then
    Rnd_Search = WTab(1).Range.Paragraphs(1).Previous.Range.Text
    If InStr(Rnd_Search, "round 1", 1) = 0 Then
        ' 确认有第二个表格再赋值
        If WTab.Count >=2 Then
            StartTble = 2
        Else
            MsgBox "文档中无第二个可用表格"
            ' 此处可自定义后续退出/处理逻辑
        End If
    Else
        StartTble = 1
    End If
Else
    ' 第一个表格前无内容，默认取第二个表格，同样做数量校验
    If WTab.Count >=2 Then
        StartTble = 2
    Else
        StartTble = 1
    End If
End If

' 后续正常调用WTab(StartTble)即可

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