Public Sub WorkWithBrowser()
	'Работа с объектом Browser
	Dim myrprev As Range, myrnext As Range, Answer As String
	'Поиск нужного заголовка в диалоге с пользователем
	'Установить заголовок в качестве цели поиска
	Application.Browser.Target = wdBrowseHeading
	With ActiveDocument
		'Встать в начало документа
		.Paragraphs.First.Range.Select
		Set myrnext = Selection.Range
		Do
			Answer = InputBox("Это искомый заголовок? (Да/Нет)", "Заголовки", "Нет")
			If Answer = "Да" Then Exit Do
			'Передвинуться к следующему заголовку
			Application.Browser.Next
			Set myrprev = myrnext
			Selection.MoveEnd (wdParagraph)
			Set myrnext = Selection.Range
		Loop Until (myrprev = myrnext)
			
			If Answer = "Нет" Then
				MsgBox ("В данном документе нет других заголовков стиля Heading")
			End If
	End With
End Sub