How to iterate the ShapeRange in Word

[TerenceAgius]

I would like to get the text of many sparsed documents in forms and textboxes and the only way I found is using ShapeRanges

Unfortunately unlike shapes and sections I can't loop

how can I translatre the following code into autoit?

Dim rngStory As Range

For Each rngStory In Activedocument.StoryRanges

Next rngStory

Any ideas are welcome

[water]

Maybe

For $rngStory In $oWord.Activedocument.StoryRanges
   ; processing goes here
Next

[TerenceAgius]

damn...didn't know that thanks

[water]