Page Number of found Text

[Digisoul]

Hi there,

I am using  _Word_DocFind to find some text in the .docx file, the search result is okay, but how can I get the page number of the found text ?

Here is my rough attempt:

$oWord = _Word_Create()
$oDoc = _Word_DocOpen($oWord,"C:\test.docx",False,Default,True)

$oRange = _Word_DocFind($oDoc,"SLR 1985 PRO 3",0,Default,True)
If Not @error Then
    ConsoleWrite("> TXT Found"&@LF)
    $oRange2 = _Word_DocRangeSet($oDoc, $oRange)
    $oRange2.Select
;~  _GetActivePage($oRange2) ; failed
;~  _GetActivePage($oRange) ; failed
;~  ConsoleWrite($oWord.Selection.Information($wdActiveEndAdjustedPageNumber)&@LF); failed
Else
    ConsoleWrite("!Not Found. Error:"&@error&@LF)
EndIf

Func _GetActivePage(ByRef $oWordApp)
    Local $iPage = $oWordApp.Selection.Information($wdActiveEndPageNumber)
    ConsoleWrite(">Active Page:"&$iPage&@LF)
 EndFunc

Thanks.

[water]

This works for me:

#include <Word.au3>
Global Const $wdActiveEndPageNumber = 3
$oWord = _Word_Create()
$oDoc = _Word_DocOpen($oWord, "C:\temp\test.docx", False, Default, True)

$oRange = _Word_DocFind($oDoc, "SLR 1985 PRO 3", 0, Default, True)
If @error Then
    MsgBox(0, "", "Nothing found!")
Else
    MsgBox(0, "", "Text found on page " & $oRange.Information($wdActiveEndPageNumber))
EndIf
_Word_DocClose($oDoc)
_Word_Quit($oWord)

You do not need to work with a selection (means selecting the text in the GUI). Simply use the Range object (kind of an invisible selection) returned by _Word_DocFind.

Edited May 2, 2015 by water

[Digisoul]

oh, understood. Thank you very much water.

[water]