How to iterate the ShapeRange in Word

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