VB如何获得Word中表格总数

我用VB打开一个现有的Word，这个Word中有很多表格，请问如何获得这些表格的总数，请高人指教！

---

activedocument.tables.count
这一句巧散就世伏行

下孝返氏面是我用来测试的完整版（供参考）
Private Sub Command1_Click()
Dim woapp As Word.Application
Set woapp = CreateObject("word.application")
woapp.Documents.Open ("c:\2.docx")
MsgBox ActiveDocument.Tables.Count
End Sub

---