Редактирование стиля всех гиперссылок в документе Word

Question

У меня есть документ с текстом, который завален гиперссылками. Сами ссылки прекрасно работают, но по какой-то причине большинство из них больше не синие! Все, что я действительно хочу сделать, это попытаться найти способ использовать макрос или что-то, чтобы пройти через документ и добавить формат стиля «Гиперссылка» для каждой гиперссылки.

Я попытался изменить сам макрокод (тот, который изменяет все URL-адреса ссылок), но я все время делаю проблему хуже! Раньше я был хорош в VBScript, но с тех пор прошло много времени.

Любое легкое решение, которое не требует ручного изменения каждого стиля?

Как часть примечания, все они в настоящее время находятся в «нормальном» стиле по какой-либо причине.

Answer 1

Попробуйте выполнить этот сценарий VBA (лучше всего в режиме отладки с помощью клавиши F8 - есть VBA и словесных окна бок о бок, так что вы можете увидеть, что происходит):

Sub FormatLinks() 
Dim H As Hyperlink 

    For Each H In ActiveDocument.Hyperlinks 
     H.Range.Select          ' (A) 
     Selection.ClearFormatting       ' (B) 

     H.Range.Style = ActiveDocument.Styles("Hyperlink") ' (C) 
    Next H 
End Sub 

Это будет

• цикл по всем гиперссылкам в вашем документе (A),
• удалить все форматирование в тексте основного текста (B) и
• присвойте неприменимый текст стилю «Гиперссылка», (C)

(C) не является строго необходимым, так как (B) уже должно дезинфицировать ваш документ, но, может быть, лучше иметь гиперссылка действительно присвоенные стиль «Гиперссылка», потому что вы можете изменить стиль позже ,