VBA, Word: перекрёстные ссылки согласно ГОСТ (убираем из текста паразитные названия «Рисунок..», «Таблица..» и тп)
Меня попросили написать статью по поводу известной проблемы с паразитными названиями перекрёстных ссылок в тексте документа MS Word, а именно, когда вы вставляете в текст документа перекрёстную ссылку (меню ссылки/перекрёстная ссылка) Word позволяет вставить либо название типа "Рисунок . " либо название полностью, что приводит к текстам типа ". на рисунке (Рисунок 10) мы видим. " или ещё более нелепым конструкциям, тогда как согласно ГОСТ, необходимо оставлять только номер ". на рисунке 10 мы видим. ". Эту проблему просто решить с помощью небольшого скрипта VBA. Код перекрёстной ссылки (его можно посмотреть, переключая режимы просмотра "shift + f9") выглядит примерно так < REF _Ref127884797 h >Для того, чтобы убрать паразитные названия и оставить только номер необходимо добавить в код ключ " #0 ". При этом надо следить чтобы случайно не вставлялись лишние ключи (это приведёт к ошибкам) и корректно переключать отображение перекрёстной ссылки из вида "текст" в "код" и обратно. Ниже приведён код, который это делает.
Sub PerSsylkiGost() Dim I As Long, DlStroki As Long, LinkText$ 'Перебираем все поля типа ссылки For I = 1 To ActiveDocument.Fields.Count 'Выбираем из них перекрёстные ссылки и выделяем их If ActiveDocument.Fields.Item(I).Type = wdFieldRef Then ActiveDocument.Fields.Item(I).Select With Selection LinkText = .Text ' MsgBox Mid(LinkText, 2, 4) 'Проверка на корректность открытия кода ссылки, т.к. в тексте могут 'присутствовать п.ссылки в виде кода и текста 'приводим п.ссылку к виду "код" If Len(LinkText) < 4 Then .Fields.ToggleShowCodes Else If Mid(LinkText, 2, 4) = "Ref " Or Mid(LinkText, 2, 4) = " Ref" _ Or Mid(LinkText, 2, 4) = "REF " Or Mid(LinkText, 2, 4) = " REF" Then Else .Fields.ToggleShowCodes End If End If .Find.ClearFormatting .Find.Replacement.ClearFormatting 'содержаение кода п.ссылки передаём переменной и обрезаем её с краёв LinkText = .Text DlStroki = Len(LinkText) LinkText = Mid(LinkText, 2, DlStroki - 2) 'Проверяем, не содержит ли уже п.ссылка нужный нам код - во избежание ошибок If InStr(LinkText, "# 0") <>0 Or InStr(LinkText, "#0") <> 0 Then Else With .Find 'Если кода в п.ссылке нет, вставляем его .Text = LinkText DlStroki = InStr(LinkText, "h") .Replacement.Text = Left(LinkText, DlStroki - 1) #0 " "#0 " ' Теперь скрипт вставляет ключ "#0 " перед ключом "h" а не в конце строки ' .Replacement.Text = LinkText #0 " .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute Replace:=wdReplaceAll End With 'Обновляем п.ссылки - приводим их к нормальному виду ' .Fields.Update End If ' .Fields.Update End With End If Next I 'Обновляем п.ссылки - приводим их к нормальному виду ActiveDocument.Fields.Update msgbox "Готово" End Sub- Разработка для Office 365
- Visual Basic for Applications
Как убрать ссылку в тексте документа Word Online
Создавая текстовый документ Word Online, можно воспользоваться функцией вставки гиперссылок. Это дает возможность перемещаться в рамках одного документа или переходить по указанной ссылке на сторонние ресурсы. При необходимости удаления любых ссылок в документе изучите инструкцию, как убрать ссылку в Word Online.
Специфика работы со ссылками и почему их нужно удалять
Создание гиперссылок требуется в тех случаях, когда необходимо сделать текст более информативным. Вариантов для ссылок может быть несколько:
- Переход на другой сайт.
- Переход к определенному разделу в тексте.
- Открытие другого документа.
- Доступ к стороннему файлу.
В любом случае вставляемые ссылки отображаются в тексте синим цветом и подчеркиваются сплошной линией. Такие обозначения легко найти в документе, но иногда возникает потребность в их удалении.
В каких случаях может потребоваться удаление ссылок:
- Удаление или блокировка элемента, к которому отправляет ссылка.
- Желание переформатирования текста после его вставки. Допустим, был скопирован текст, который содержит гиперссылки. В создаваемом тексте они не нужны, поэтому и требуется их устранить.
- Временная функция, которая не даст возможности пользователям с общим доступом к документу переходить по его ссылкам. Например, необходимо кого-либо ознакомить с текстом документа, но при этом нежелательно, чтобы ссылки были активны.
- Версия для печати. Если требуется распечатать текст, то ссылки будут портить внешний вид документа и будут неинформативными. Перед отправкой на печать необходимо удалить имеющиеся ссылки.
Как убрать ссылку в тексте документа Word Online: инструкция
Созданную ссылку в тексте возможно удалить, выполнив несколько простых действий:
- Нажмите левой кнопкой мыши на ссылку;
- В открывшемся окне нажмите нажмите на значок «Удалить ссылку».
Таким образом удаляются все имеющиеся ссылки в документе поочередно.
В работе с документами Word Online отсутствует возможность избавления от нескольких ссылок одновременно через стандартную опцию «Удаление ссылки». Данная функция работает только для конкретной гиперссылки.
Однако при наличии большого количества ссылок можно использовать метод копирования и вставки. Это позволит преобразовать текст и автоматически удалит ссылки в конкретной области документа Для удаления двух и более ссылок достаточно выполнить следующие шаги:
- Выделите текст, содержащий гиперссылки;
- На выделенной области нажмите правую кнопку мыши и нажмите пункт «Копировать»;
- Не передвигая курсора и не снимая выделения, щелкните мышью ещё раз;
- Выберите строку «Вставить без форматирования».
На прежнем месте появится тот же текст, но уже без ссылок. Данные действия можно выполнить, используя панель инструментов. Для этого:
- Выделите текст со ссылками;
- Нажмите раздел «Правка»;
- Щелкните по строке «Копировать»;
- Затем нажмите «Вставить без форматирования».
В данной функции есть существенный минус: вместе со ссылками удаляется любое исходное форматирование.
Если в тексте имеются специальные шрифты, выравнивание и другие виды форматирования, то все изменения будут удалены вместе со ссылками. Для сохранения формата документа лучше воспользоваться вариантом постепенного удаления ссылок по одной.
Частые вопросы:
- Как сделать гиперссылку в тексте Word Online
- Как делать сноски в Word Online
- Как найти слово в тексте документа Word Online
- Настройка доступа к файлу для других пользователей в Word Online
