VBA 错误 91 : Object Variable not set

Question

我有下面的代码可以从 outlook 电子邮件中读取表格。但是我在 ActiveInspector.WordEditor 行遇到错误。

    Set doc = ActiveInspector.WordEditor
    Set tbl = doc.Tables(1)
    lngRows = tbl.Rows.Count
    lngColumns = tbl.Columns.Count

我还在引用文献中标记了 Microsoft Word 12.0 Object Library。有人可以帮忙吗？

我正在尝试解决我在这里提到的问题:

Read a table in outlook mail using macro

Answer 1

如果您正在使用 ActiveExplorer.Selection.Item(1)，请更改为以打开的邮件项目开头或

Sub inspWord()

    Dim doc As Word.Document
    Dim tbl As Word.Table

    Dim lngRows As Long
    Dim lngColumns As Long

    ActiveExplorer.Selection.Item(1).Display
    Set doc = ActiveInspector.WordEditor
    Set tbl = doc.Tables(1)
    lngRows = tbl.Rows.count
    lngColumns = tbl.Columns.count

End Sub