Public Sub FollowHyperlinks()
	'	Переход по запросу,следуя гиперссылке активного документа
	Dim MyHL As Hyperlink
	Dim Answer As String,NameHL As String
	With ActiveDocument
		For Each MyHL In .Hyperlinks
		 'определение объекта, с которым связана гиперссылка
		 If MyHL.Type = msoHyperlinkRange Then
			NameHL = MyHL.Range.Text
		 Else:NameHL = MyHL.Shape.Name
		 End If
		 Answer = InputBox(Prompt:="Перейти, следуя гиперссылке? " ;amp; vbCrLf _
			& "связана с объектом - " &NameHL & vbCrLf _
			& "Имя целевого документа - " & MyHL.Address & vbCrLf _
			& "Имя целевого элемента - " & MyHL.SubAddress, _
		Title:="Переход по гиперссылке", Default:="Да")
		 If Answer = "Да" Then
			MyHL.Follow
			MsgBox ("Продолжаем работать!")
			Exit For
		 End If
			
		Next MyHL
	End With
End Sub