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