Удаляем ссылки и сноски в MS Word
В редакторе Word нет встроенной возможности удалить ссылки из документа. Вернее, она есть — нажимаем Ctrl + A
, а затем Ctrl + Shift + F9
. Но синий цвет по-прежнему остаётся. Еще одна проблема — печать страниц из Википедии, сноски, которыми утыканы все статьи, в печатном виде часто бесполезны. Беглым поиском решения не нашел, поэтому написал два простеньких макроса:
Sub Удалить_ссылки() On Error Resume Next 'Определим выделен ли текст, если да, возьмем выделение, нет - весь документ If Len(Selection.Range.Text) > 0 Then Set MyObject = Selection Else Set MyObject = ActiveDocument End If 'Изменим стиль текста ссылок, потом удалим ссылки While MyObject.Hyperlinks.Count > 0 MyObject.Hyperlinks(1).Range.Font.Underline = wdUnderlineNone MyObject.Hyperlinks(1).Range.Font.ColorIndex = wdAuto MyObject.Hyperlinks(1).Delete Wend End Sub Sub Удалить_сноски_wiki() With Selection.Range.Find .Text = "\[*\]" .Replacement.Text = "" .MatchWildcards = True .Forward = True If Len(Selection.Range.Text) = 0 Then .Wrap = wdFindContinue End If .Execute Replace:=wdReplaceAll End With End Sub
Если текст выделен, то будет обработана выделенная часть, если не выделен — весь документ. У первого макроса есть небольшая проблема: удаление и перекрашивание каждой ссылки пишется в историю изменений, поэтому при отмене каждая ссылка будет отменяться по отдельности. Как исправить не знаю, с вордовским диалектом бейсика знаком очень слабо.
Комментариев нет