查找段落所在的表格

Question

我正在使用 VBA 使用如下代码阅读 Microsoft Word docx：

For Each P In WD.Paragraphs 
    Temp = P.Range.Text
    If P.Range.Information(wdWithInTable) Then
    'Other stuff done here
Next P

文档中混入了许多表格，并将它们的单元格读取为段落。我想获取当前段落所在的任何表的行和列。理想情况下，这将是对表本身的引用。我也知道您可以像这样遍历表：

For Each T In WD.Tables
    Rcount = T.Rows.Count
    Ccount = T.Columns.Count
    'temp = T.Cell(R, C).Range.Text 'can get individual cell info like this
Next T

我的第一个想法是将段落文本与表格单元格的文本进行比较以尝试找到匹配项，但单元格可能为空，因此不确定。我无法通过搜索找到答案；可能是因为单词、段落和表格是很常见的术语。

Answer 1

Tim 的方法正确找到了对表的引用：

Set oTable = P.Range.Tables(1)

或仅用于行和列：

R = P.Range.Tables(1).Rows.Count
C = P.Range.Tables(1).Columns.Count