标题: 如何知道OLE对象中的word文档一共有几页呀？ [打印本页] 作者: jiangshan197 时间: 2004-4-5 19:49 标题: 如何知道OLE对象中的word文档一共有几页呀？ 另外，最好是还能够知道WORD文档中的表一共有几行。（或者是行的编号）作者: 土豆 时间: 2004-4-5 20:07
将WORD输出到临时目录
用WORD.VBA读取文件并判断页数作者: jiangshan197 时间: 2004-4-5 20:22
能讲具体点吗？ 作者: 土豆 时间: 2004-4-5 22:18
把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 时间: 2004-4-6 20:46
谢谢楼上的指教，但好像不对呀，有十几页的才显示3页，有四页的也才显示2页。
而且能不能直接判断OLE中的WORD有几页呢，你的WORD另存为是手工还是自动存呀，如果自动存要怎么存呀？再次谢谢！