计算Word文档中表格的数量

Question

我有一个包含许多表格的Word文档。

我需要计算桌子的数量。

我尝试过以下VBA

Dim T as Table
Dim i as Integer
Dim Tables as Integer

For Each T In wdDoc.Tables
    i = i + 1
    Exit For
Next
Tables = i
End sub

然而这又回来了

“运行时错误‘424’：需要对象”。

我还在网上找到了代码

Tables = wdDoc.Tables.Count

用这段代码创建宏似乎没有做任何事情。

Answer 1

这应该有效：

   Debug.Print Active.Document.Tables.Count