How to reliably get number of pages in a Word document

[VDIwarrior]

Hi,

I have the following code snippet.

#include <word.au3>

Dim $oTemp1, $oTemp2, $path, $pages
$path = "E:\parenting.doc"
$oTemp1 = _WordCreate($path)
$oTemp2 = _WordDocGetCollection($oTemp1, 0)
Sleep(10000)
$pages = _WordDocPropertyGet($oTemp2, "pages")
MsgBox(0, "ok", $pages)

The problem is, if I dont include the sleep, then the value of $pages will be 1. If I insert the sleep, then I get the correct value of 61. One thing I have noticed is that _WordCreate seems to return immediately after the first page of the Word document is visible. Is there a way to make it wait till all pages have been read ?

thanks a lot

-V

[evilertoaster]

this should work-

Func GetPages($filePath)
    $objWord = ObjCreate("Word.Application")
    $objDoc = $objWord.Documents.Open($filePath)
    return $objDoc.ComputeStatistics(2)
EndFunc

[gruntydatsun]

Sleep(10000)

$pages = _WordDocPropertyGet($oTemp2, "pages")

I know it's a horribly blunt and kludgy answer but if you replace the above two lines with the below it works....

$temppages = _WordDocPropertyGet($oTemp2, "pages")

while 1
    Sleep(4000)
    $pages = _WordDocPropertyGet($oTemp2, "pages")
    if $pages = $temppages Then ExitLoop
    $temppages = $pages
WEnd

[DW1]

Still relies on Sleep ... but it's the best one so far.

[VDIwarrior]

this should work-

Func GetPages($filePath)
    $objWord = ObjCreate("Word.Application")
    $objDoc = $objWord.Documents.Open($filePath)
    return $objDoc.ComputeStatistics(2)
EndFunc

This works great.. thanks, really appreciate it ! Can you please also tell me how to

a. Attach $objDoc to a Window

b. Scroll to a given page number

[gruntydatsun]

Still relies on Sleep ... but it's the best one so far.

Try the one evil toaster posted. I just tried it and it works instantly. Doesn't need to open an instance of word either.

[VDIwarrior]

I know it's a horribly blunt and kludgy answer but if you replace the above two lines with the below it works....

$temppages = _WordDocPropertyGet($oTemp2, "pages")

while 1
    Sleep(4000)
    $pages = _WordDocPropertyGet($oTemp2, "pages")
    if $pages = $temppages Then ExitLoop
    $temppages = $pages
WEnd

thanks, but I really dont want to rely on sleep, because I might open a word document of any size, I dont know how long it'll take.

[gruntydatsun]

thanks, but I really dont want to rely on sleep, because I might open a word document of any size, I dont know how long it'll take.

The sleep in this one is the delay in between comparing the current and last read page count. It shouldn't matter what size the file is. Until the last and current read are the same size it loops.

[big_daddy]

Here is an optimized version of evilertoaster's code.

#include <Word.au3>

$sPath = "E:\parenting.doc"
$oWordApp = _WordCreate($sPath)
$oDoc = _WordDocGetCollection($oWordApp, 0)
$iPages = $oDoc.ComputeStatistics(2)
MsgBox(0, "ok", $iPages)

[VDIwarrior]

Here is an optimized version of evilertoaster's code.

#include <Word.au3>

$sPath = "E:\parenting.doc"
$oWordApp = _WordCreate($sPath)
$oDoc = _WordDocGetCollection($oWordApp, 0)
$iPages = $oDoc.ComputeStatistics(2)
MsgBox(0, "ok", $iPages)

You guys are a great help. Thanks much. Can you please also tell me how to scroll to any given page number and set the cursor/range so that I can insert text using "range.InsertAfter" ?

[big_daddy]

I hope this is what you are looking for...

#include <Word.au3>

$wdGoToPage = 1
$wdGoToFirst = 1

$sPath = "E:\parenting.doc"
$oWordApp = _WordCreate($sPath)
$oDoc = _WordDocGetCollection($oWordApp, 0)
$iPages = $oDoc.ComputeStatistics(2)

; Returns a range object that represents the start position of the page
$oRange = $oDoc.GoTo($wdGoToPage, $wdGoToFirst, Random(1, $iPages, 1))

[VDIwarrior]

I hope this is what you are looking for...

#include <Word.au3>

$wdGoToPage = 1
$wdGoToFirst = 1

$sPath = "E:\parenting.doc"
$oWordApp = _WordCreate($sPath)
$oDoc = _WordDocGetCollection($oWordApp, 0)
$iPages = $oDoc.ComputeStatistics(2)

; Returns a range object that represents the start position of the page
$oRange = $oDoc.GoTo($wdGoToPage, $wdGoToFirst, Random(1, $iPages, 1))

This is perfect, just exactly what I wanted. Thank you, thank you !

[big_daddy]

This is perfect, just exactly what I wanted. Thank you, thank you !

You're welcome! Glad I was able to help.

[hazed]

You're welcome! Glad I was able to help.

I'm still too much of a nooby, where do you get these .ComputeStatistics(2) magic? I'm trying to deal with replacing text with new text that is underlined and the same font as the original text. I am completely lost.

[big_daddy]

I'm still too much of a nooby, where do you get these .ComputeStatistics(2) magic? I'm trying to deal with replacing text with new text that is underlined and the same font as the original text. I am completely lost.

The Word Object Model Reference is a good starting place. Here is the ComputeStatistics Method.