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

来源

2014-09-04 sahil sachdeva

请提供您的问题的解释！也请看看这个：http://stackoverflow.com/help/dont-ask和这个：http://stackoverflow.com/help/how-to-ask – DatRid 2014-09-04 07:42:27

你太亲近了！如果你没有一个错字在你的代码，那么这是它（表，不表）：

table = wddoc.tables.Count

来源

2014-09-05 01:20:20 PatricK

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

回答

相关问题