咱们先拆解下你的VBA脚本在Excel里跑不起来的核心问题，再给出针对性的修复代码：

关键问题点 #

1. 对象归属混淆：在Excel环境中，ActiveDocument和Selection默认指向Excel的对象，而非你打开的Word文档——这直接导致搜索逻辑完全错位。
2. 文件路径错误：Dir(.SelectedItems(1))只提取了文件名，再和fd.InitialFileName拼接出来的路径大概率是错的，可能根本没正确打开PDF转成的Word文档。
3. 错误掩盖与资源泄漏：On Error Resume Next会隐藏文件打不开、对象创建失败等关键错误；用Shell杀Word进程过于粗暴，容易残留异常进程。

修复后的完整代码 #

Sub FindTableno()
    Dim oTbl As Object ' 改用Object，无需提前引用Word对象库
    Dim oRow As Object
    Dim oCell As Object
    Dim tblno As Integer
    Dim fd As Office.FileDialog
    Dim sFullFileName As String ' 存储完整文件路径
    Dim objWord As Object
    Dim objDoc As Object
    
    ' 替换错误掩盖逻辑，方便排查问题
    On Error GoTo Cleanup
    
    ' 创建文件选择器对话框
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .AllowMultiSelect = False
        .Filters.Clear
        .Title = "Select a PDF File"
        .Filters.Add "All PDF Documents", "*.pdf", 1
        If .Show = True Then
            sFullFileName = .SelectedItems(1) ' 直接获取完整路径，避免拼接错误
        Else
            Exit Sub ' 用户取消选择，直接退出
        End With
    End With
    
    If Trim(sFullFileName) = "" Then Exit Sub
    
    ' 初始化Word应用
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = False
    
    ' 打开PDF（Word会自动完成格式转换）
    Set objDoc = objWord.Documents.Open(FileName:=sFullFileName, _
                                        Format:="PDF Files", _
                                        ConfirmConversions:=False)
    
    ' 遍历表格搜索目标文本
    If objDoc.Tables.Count > 0 Then
        tblno = 1
        For Each oTbl In objDoc.Tables
            For Each oRow In oTbl.Rows
                For Each oCell In oRow.Cells
                    ' 直接用单元格Range搜索，避免依赖Selection
                    With oCell.Range.Find
                        .Text = "Nutrition Information"
                        .MatchCase = False ' 可根据需求调整大小写匹配
                        .Execute
                        If .Found Then
                            MsgBox "找到目标文本，表格编号：" & tblno
                            GoTo Cleanup ' 找到后直接清理资源退出
                        End If
                    End With
                Next
            Next
            tblno = tblno + 1
        Next
        MsgBox "未找到目标文本，共搜索了 " & objDoc.Tables.Count & " 个表格"
    Else
        MsgBox "该文档中没有表格"
    End If

Cleanup:
    ' 统一清理资源，避免Word进程残留
    If Not objDoc Is Nothing Then
        objDoc.Close SaveChanges:=False
        Set objDoc = Nothing
    End If
    If Not objWord Is Nothing Then
        objWord.Quit
        Set objWord = Nothing
    End If
    Set fd = Nothing
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

核心修改说明 #

• 路径修正：直接通过.SelectedItems(1)获取完整文件路径，彻底避免拼接错误。
• 明确对象边界：所有Word相关操作都通过objWord和objDoc调用，不再依赖ActiveDocument这种环境敏感的对象，确保在Excel中操作的是Word文档。
• 高效搜索优化：放弃Selection选区操作，改用oCell.Range.Find直接搜索单元格内容，速度更快且更稳定。
• 资源安全清理：通过GoTo Cleanup统一处理资源释放，正常关闭Word进程，替代粗暴的Shell杀进程方式。

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