让我来帮你梳理这个报错的原因和解决办法：

核心报错原因 #

你是在Excel环境中编写的VBA代码（通过CreateObject调用Word应用），但代码里的Selection指的是Excel的选区对象，而Excel的Selection并没有Font.Hidden这个属性——这就是触发错误的根本原因。

除此之外，你的代码还有几个可以优化的点：比如依赖Selection操作效率低，以及没有处理Word表格单元格的特殊结束标记。

具体修正步骤 #

1. 抛弃Selection，直接操作Word Range对象
   既然你已经获取了单元格的aRng对象，直接对这个Range设置字体隐藏属性即可，完全不需要调用Select方法（VBA中尽量避免使用Select/Selection，不仅效率低还容易引发对象模型混淆）。

2. 处理单元格结束标记
   Word表格单元格的Range会包含一个不可见的单元格结束字符（Chr(13)+Chr(7)），如果直接隐藏整个Range，可能会影响表格结构，建议只隐藏单元格中的文本内容，排除这个结束标记。

3. 优化循环逻辑
   直接针对表格的Rows进行循环，比逐个单元格遍历效率更高，逻辑也更清晰。

修正后的完整代码 #

Sub test()
 Dim SearchArr() As Variant, Cnt As Integer, Arrcnt As Integer
 Dim WrdApp As Object, FileStr As String, WrdDoc As Object, aRng As Object
 Dim Tbl As Object, tblRow As Object, cellText As String
 
 Set WrdApp = CreateObject("Word.Application")
 WrdApp.Visible = True
 '********** 修改为你的文件路径
 FileStr = "C:\Users\krishna.haldunde\Downloads\DE\DE\International_DE.docx"
 Set WrdDoc = WrdApp.Documents.Open(FileStr)
 SearchArr = Array("French", "Spanish")
 
 '遍历文档中的每个表格
 For Cnt = 1 To WrdDoc.Tables.Count
    Set Tbl = WrdDoc.Tables(Cnt)
    '遍历每个搜索关键词
    For Arrcnt = LBound(SearchArr) To UBound(SearchArr)
        '遍历表格的每一行
        For Each tblRow In Tbl.Rows
            '遍历当前行的每个单元格
            For Each TblCell In tblRow.Cells
                Set aRng = TblCell.Range
                '移除单元格末尾的特殊结束标记
                aRng.MoveEnd wdCharacter, -1
                cellText = LCase(aRng.Text)
                '检查单元格内容是否包含关键词
                If InStr(cellText, LCase(SearchArr(Arrcnt))) > 0 Then
                    '直接设置字体隐藏
                    aRng.Font.Hidden = True
                    '如果你需要隐藏整行，取消下面这行的注释
                    'tblRow.Range.Font.Hidden = True
                    Exit For '找到关键词后退出当前行的单元格循环
                End If
            Next TblCell
        Next tblRow
    Next Arrcnt
 Next Cnt
End Sub

额外提示 #

• 如果你的需求是隐藏包含指定术语的整行，而不是单个单元格的内容，可以直接使用tblRow.Range.Font.Hidden = True，这样更高效，不需要逐个单元格检查。
• 尽量使用你已经定义的WrdDoc对象，而不是WrdApp.ActiveDocument，这样更稳定，不会因为文档切换而出错。

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