如何知道OLE對象中的word文檔一共有幾頁呀？

jiangshan197

另外，最好是還能夠知道WORD文檔中的表一共有幾行。（或者是行的編號(hào)）

土豆

將WORD輸出到臨時(shí)目錄
用WORD.VBA讀取文件并判斷頁數(shù)

jiangshan197

能講具體點(diǎn)嗎？

土豆

把OLE對象中的word文檔保存到一個(gè)臨時(shí)目錄會(huì)不會(huì)？
不會(huì)？我FAINT！那下面也不用看了
'函數(shù)：獲取WORD文檔的頁數(shù)
Function GetDocPageNum(FileName As String)
Dim WordApp, WordDoc
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = False
    Set WordDoc = WordApp.Documents.Open(FileName, , True)
    GetDocPageNum = WordDoc.BuiltInDocumentProperties("Number of pages")
    WordDoc.Close False
    WordApp.Quit
End Function

'演示的例子
Sub test()
    MsgBox GetDocPageNum("c:\aaa.doc")
End Sub

jiangshan197

謝謝樓上的指教，但好像不對呀，有十幾頁的才顯示3頁，有四頁的也才顯示2頁。
而且能不能直接判斷OLE中的WORD有幾頁呢，你的WORD另存為是手工還是自動(dòng)存呀，如果自動(dòng)存要怎么存呀？再次謝謝！