如何用vba判断内容是否在word表格内？

在编写word vba时，经常涉及到word表格的处理，其中一项任务就是要判断是否内容位于word表格内。

在word vba中可以使用range对象或者selection对象的Information属性来判断是否位于表格内。

代码如下：

Sub QQ1722187970()
    Dim oP As Paragraph
    Set oP = Word.ActiveDocument.Paragraphs(1)
    If oP.Range.Information(wdWithInTable) Then
       MsgBox "第一段落位于表格内"
    End If
End Sub

WdInformation 参数有多种类型，各个类型的解释说明可以看这里。