Word: Find between ranges

[frank10]

I have a doc like this:

example 1
    10§ minutes
    do something else
    bla bla bla
    
example 2
    bla bla
    other bla bla
    
example 3
    45§ minutes
    bla bla
    other 12§ minutes, then bla bla

I search for every example and then I'll search for "§ minutes", but I want to change it only if it's related to the current example.

like this:

global $oSearchRange = _Word_DocRangeSet($oDoc, -1)
global  $oRangeFound 
While 1
    $oRangeFound = _Word_DocFind($oDoc, "example", $oSearchRange)
    local $err = @error, $ext = @extended
    if $debug = 1 then Consolewrite( "example: __err:" & $err & "__extended:" & $ext & @crlf)
    if $err then Exitloop
    
    $oRangeFound = _Word_DocFind($oDoc, "§ minutes", $oSearchRange)
    $oRangeFound = _Word_DocRangeSet($oDoc, $oRangeFound, $wdWord, -2, $wdParagraph, 1) 
    msgbox(0,'§ minutes', $oRangeFound.Text)

Wend

i.e.

example 1 will find its row 10§ minutes,

BUT when I go to example 2, the search for minutes will fall into a row of example 3 because there is no minutes on example 2...

How can I detect if a Find is within the current example?

[water]

I would use two loops to find 1) all occurrences of "Example" and 2) all occurrences of "§minutes".
_Word_DocFind returns a range. With

Global Const $wdFirstCharacterLineNumber = 10 ; https://docs.microsoft.com/en-us/office/vba/api/Word.WdInformation
$iLineNumber = $oRangeFound.Information($wdFirstCharacterLineNumber)

you get the line number.
Put all line numbers (plus a flag that tells you if the entry is an "example" or a "§minutes" line) into an array, sort them and voila!

[frank10]

Thank you water.

Good idea with line numbers!

[frank10]

After more digging, it's not perfect: it returns only line numbers relative to page... so it must be combined with page Number too.
It would be perfect if there exists an absolute line number...

Or I could extend the range from 1° example to 2° example and comparing characters' position of the range with .Start and .End.

[water]

To retrieve the page number you could use

Global Const $wdFirstCharacterLineNumber = 10 ; https://docs.microsoft.com/en-us/office/vba/api/Word.WdInformation
Global Const $wdActiveEndPageNumber = 3 
$iPageNumber = $oRangeFound.Information($wdActiveEndPageNumber)
$iLineNumber = $oRangeFound.Information($wdFirstCharacterLineNumber)
$iUniqueNumber = ($iPageNumber * 1000) + $iLineNumber

So you get a unique number for each hit in the whole document.

[frank10]

ok, good!