Public Sub RemoveBookmarks()
	'	Удаляет 	по запросу закладки активного документа
	Dim MyBM As Bookmark
	Dim Answer As String
	With ActiveDocument
		For Each MyBM In .Bookmarks
		 Answer = InputBox(Prompt:="Удалить закладку? " & vbCrLf _
			 & "Имя закладки - " & MyBM.Name, _
			Title:="Удаление закладок", Default:="Да")
		 If Answer = "Да" Then MyBM.Delete
			
		Next MyBM
	End With
End Sub