如何獲得當(dāng)前Word 表格行數(shù)

骷髏頭

Dim DocApp As Word.Application      '聲明類型

Dim aDoc As Word.Document

Dim DocTable As Word.Table

Dim mReadPathStr As String

mReadPathStr = "C:\Documents and Settings\Administrator\桌面\Test\test.dot"

Set DocApp = CreateObject("Word.Application")

DocApp.Documents.Open (mReadPathStr)

Set aDoc = DocApp.Documents(mReadPathStr)

MsgBox aDoc.Tables(2).Rows    <=====出錯   如何獲得當(dāng)前Word 表格行數(shù)

DocApp.Quit

Set DocApp = Nothing

aDoc.Close

Set aDoc = Nothing

[此貼子已經(jīng)被作者于2004-7-20 13:26:36編輯過]

xinbao

不錯, 收到

骷髏頭

MsgBox aDoc.Tables(2).Rows.Count