Необходимо программно найти все встречающиеся повторы тектсового фрагмента в документе и при этом определить их позицию (start), загнав её, скажем, в массив. Как это сделать? При помощи Find пробовал, найти фрагмент и провести над ним операции получается, а вот определеить его позицию от начала документа - нет.
With ActiveDocument.Range.Find
' здесь все параметры поиска
.Forward = wdFindStop
.Execute
position = .Parent.Start
End With
или
With ActiveDocument.Range.Find
' здесь все параметры поиска
.Forward = wdFindStop
.Execute
position = ActiveDocument.Range( _
Start:=ActiveDocument.Range.Start, _
End:=.Parent.Start).Characters.Count
End With