想写一个关于word的表格的perl处理，应该如何判断文档里表格的个数和行数呢

Sub 判断表格个数和行数()
    Dim iTblCount As Integer
    Dim iTblRows As Integer
    Dim i As Integer
    Dim oTbl As Table
    iTblCount = ActiveDocument.Tables.Count
    MsgBox "当前文档中共有" & iTblCount & "个表格"
    For Each oTbl In ActiveDocument.Tables
        iTblRows = oTbl.Rows.Count
        i = i + 1
        MsgBox "第" & i & "个表格的行数为" & iTblRows
    Next oTbl
End Sub