如何知道OLE对象中的word文档一共有几页呀？

jiangshan197

另外，最好是还能够知道WORD文档中的表一共有几行。（或者是行的编号）

土豆

将WORD输出到临时目录
用WORD.VBA读取文件并判断页数

jiangshan197

能讲具体点吗？

土豆

把OLE对象中的word文档保存到一个临时目录会不会？
不会？我FAINT！那下面也不用看了
'函数：获取WORD文档的页数
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另存为是手工还是自动存呀，如果自动存要怎么存呀？再次谢谢！