vbscript查找Word文档中存在的表数

Question

Sub inserttable()

Dim wdapp
Dim wddoc
Dim strdocname
Set wdapp = CreateObject("word.application")
wdapp.Visible = True
Set wddoc = wdapp.Documents.Open("C:\Documents and Settings\dssuser.GGNS1DSS22\Desktop\sahil3.doc")
table = wddoc.table.Count
If table = 0 Then
    MsgBox ("no table found")
Else
    MsgBox ("table found")
    Exit Sub
End If
wddoc.Close
wdapp.Quit

Set wddoc = Nothing
Set wdapp = Nothing

End Sub

Answer 1

You are so close! If you didn't have a typo in your code, then this is it ( Tables , not table ):

table = wddoc.tables.Count