从Range.Text中删除隐藏文本

Question

我正在使用VBA处理Word文档表的第一列中的文本。单元格可能有隐藏文本，我不希望它在处理过程中出现。

Dim info as String
For Each oTable In doc.Tables
    For Each oRow In oTable.Rows
        info = oRow.Cells(1).Range.Text
        infoClean = RemoveHiddenText (info) ' is there such a beast ?
    Next
Next

什么VBA必须在RemoveHiddenText（）函数中？

Answer 1

If oRow.Cells(1).Range.Font.Hidden Then
   oRow.Cells(1).Range.Text = ""
End If

我不知道隐藏文字对你的意思是什么，但我认为这正是你要找的。