Отделить знак сноски от цифры сноски

Автор Svetik, 02 июня 2016, 19:08

Svetik

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

[вложение удалено администратором]

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

Макрос
Sub Макрос()

    Dim enote As Endnote, rng As Range
   
    For Each enote In ActiveDocument.Endnotes
        ' Если есть неразрывный пробел, то ничего не делаем.
        If enote.Range.Paragraphs(1).Range.Characters(2).Text <> Chr(160) Then
            ' Если после номера есть обычный пробел.
            If enote.Range.Paragraphs(1).Range.Characters(2).Text = " " Then
                ' Пробелов может быть несколько.
                Set rng = enote.Range.Paragraphs(1).Range.Characters(2).Duplicate
                rng.MoveEndWhile Cset:=" "
                rng.Text = Chr(160)
            ' Если после номера нет обычного пробела.
            Else
                enote.Range.Paragraphs(1).Range.Characters(1).InsertAfter Text:=Chr(160)
            End If
        End If
    Next enote

End Sub
[свернуть]

Svetik

Ура! Большое пребольшое спасибо!