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
参考文献にもマークを付けました。誰かが助けることができますか?
私はここで述べた問題を解決しようとしています:
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
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加