Результаты поиска

[cw_o]

Не могу найти способ, чтобы просмотреть результаты поиска с помощью объекта Find.

With Selection.Range.Find
        .ClearFormatting
        .text = "sample"
        .Forward = True
        .Wrap = wdFindContinue
        '...
        .Execute
    End With

Дальше могу только получить булевый результат в Selection.Range.Find.Found. Мне нужно вывести количество найденных "sample" во всем документе и организовать возможность последовательного перехода к найденному тексту.

[viter.alex]

	'Коллекция для координат найденных слов
	Dim TextCoords as New Collection
	With Selection.Range.Find
			.ClearFormatting
			.text = "sample"
			.Forward = True
			While .Execute
				TextCoords.Add Selection.Start & "" & Selection.End
			Wend
	End With
	MsgBox "Найдено " & TextCoords.Count & " совпадений"

Ну а затем, перебирая элементы коллекции можно выделять ранее найденные фрагменты текста

[cw_o]

Работает не совсем стабильно... Как сделать, чтобы результаты поиска не зависели от текущего выделения и положения курсора? Чтобы поиск выполнялся во всем документе.
Какое значение должно быть у параметра Wrap?

[viter.alex]

Можно и без использования выделения, через диапазон

    'Коллекция для координат найденных слов
    Dim TextCoords As New Collection
    Dim oRng As Range
    Set oRng = ActiveDocument.Content
    With oRng.Find
            .Text = "sample"
            .Forward = True
            While .Execute
                TextCoords.Add oRng.Start & ";" & oRng.End
            Wend
    End With
    MsgBox "Найдено " & TextCoords.Count & " совпадений"