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

你太近了！如果代码中没有输入错误，则这是表，而不是表：

---

请解释一下你的问题！另外，请看一下这个：还有这个：

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

table = wddoc.tables.Count