计算Word文档中的表数

Question

我有一个非常长的word文档，其中包含许多表格。我需要计算文档中表的数量。尽管我可以手动执行此操作，但是我确信必须有VBA可以比我更快地完成这项工作。

我已经尝试过以下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

但是我不确定如何使用它，因为用此代码创建宏似乎没有任何作用。

谁能告诉我我要去哪里/有什么合适的VBA？

Answer 1

这应该起作用：

   Debug.Print Active.Document.Tables.Count