VB读取WORD表单元内问题

[BabySky716]

非常诡异啊,撒了泡尿回来,之前还能读取的就不行,哪里错了?
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

txtIn.Text = ""
With cdgImput
.DialogTitle = "导出文件路径"
.Filter = "导出文件(*.doc)|*.doc|所有文件(*.*)|*.*"
.ShowOpen
txtIn.Text = .FileName
strFileName = .FileTitle
End With

Set WordApp = CreateObject("Word.Application")
Set WordDoc = Documents.Open(txtIn.Text)
WordApp.Visible = True
WordDoc.Activate

With Selection.Tables(1)'运行到这里错误
MsgBox .Cell(2, 1).Range.Text
End With

[BabySky716]

集合所要求的成员不存在,可是表明明就在的，刚才还能读,没对表做任何其他操作

[jhone99]

是否有其他打开或使用？

也可能系统不稳，重启可能就好了

[getemail]

是不是word开着?

[BabySky716]

重启过多次，其他WORD也没开着，实在是搞不懂

[jhone99]

我测试了，你没有在word文件中选中表导致的，选中就不会提示

[cBirdNO1NO1]

问题出在：With Selection.Tables(1)
其实，操作WORD无需引用对象，直接参考以下代码即可：
Dim wd As Object
Set wd = GetObject("d:\xx.doc")
再通过wd.tables(1)操作表。

[jhone99]

With WordDoc.Tables(1)

这样修改就不用选中了