Word Макрос: Как убрать пробелы в адресах Интернет во всех сносках?

[Посетитель]

Добрый день!
Посмотрите пожалуйста такую задачу. У меня есть текст и сноски. В сносках полно интернет-ссылок, в которых много лишних пробелов. Можно как-нибудь автоматизировать процесс и убрать лишние пробелы (именно в сносках). Пример:

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

[Посетитель]

Мне этот макрос не подходит, т.к. в сносках может быть ещё и другой текст, кроме гиперссылок, и в этом тексте могут быть слеши.

[Администратор]

Не смогу помочь, т.к. много всяких нюансов.
Единственно могу предложить замену в выделенном фрагменте - вы выделяете гиперссылку (не целый абзац или несколько абзацев, а именно одну гиперссылку) и макрос проводит замену в этой гиперссылке.