計算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 ActiveDocument.Tables.Count