Добрый день!
Посмотрите пожалуйста такую задачу. У меня есть текст и сноски. В сносках полно интернет-ссылок, в которых много лишних пробелов. Можно как-нибудь автоматизировать процесс и убрать лишние пробелы (именно в сносках). Пример:
http://сайт / рабочие / категории / other/.
Макрос для ситуации, когда в сносках кроме гиперссылок ничего больше нет (иначе будет замена не только в гиперссылках):
Sub Макрос1()
'1. Проверка, что есть сноски (иначе произойдёт ошибка).
If ActiveDocument.Footnotes.Count = 0 Then
MsgBox "В файле нет сносок.", vbExclamation
Exit Sub
End If
'2. Замена в сносках.
With ActiveDocument.StoryRanges(wdFootnotesStory).Find
.Text = " / "
.Replacement.Text = "/"
.Execute Replace:=wdReplaceAll
End With
'3. Сообщение.
MsgBox "Готово.", vbInformation
End Sub
Мне этот макрос не подходит, т.к. в сносках может быть ещё и другой текст, кроме гиперссылок, и в этом тексте могут быть слеши.
Не смогу помочь, т.к. много всяких нюансов.
Единственно могу предложить замену в выделенном фрагменте - вы выделяете гиперссылку (не целый абзац или несколько абзацев, а именно одну гиперссылку) и макрос проводит замену в этой гиперссылке.