VB读取WORD表单元内问题

非常诡异啊,撒了泡尿回来,之前还能读取的就不行,哪里错了?
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

---

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

---

是否有其他打开或使用？

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

---

是不是word开着?

---

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

---

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

---

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

---

如需要阅读该回复，请登录或注册CSDN!