计算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

然而，这回来了

  

＆＃34;运行时错误＆＃39;＆＃39;：需要对象＆＃34;。

我还在互联网上的其他地方找到了代码

Tables = wdDoc.Tables.Count

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

有人可以告诉我哪里出错了/有什么合适的VBA吗？

Answer 1

这应该有效：

   Debug.Print ActiveDocument.Tables.Count

Answer 2

使用Word 2016时，建议的答案仍然遇到错误。我尝试了结合以上答案和评论的略微修订版​​本。在“有效”和“文档”之间的时间段导致宏失败。我在“消息框”中交换了Debug.Print，并成功了：

Sub CountTables()
'
' CountTables Macro
'
'
MsgBox ActiveDocument.Tables.Count
    
End Sub