Ограничить форматирование (Надстрочные / подстрочные)

[Скрипт]

'В программе "Word" есть особенность:
    'если имя процедуры совпадает с именем команды программы "Word",
    'то вместо Word-команды будет запускаться процедура.
    'Поэтому нужно ставить на всякий случай какой-нибудь префикс в имени
    'процедуры.
Sub mySuperscript()
    
    With ActiveDocument.Range.Find
        .Format = True
        .Font.Superscript = True
        .Replacement.Style = ActiveDocument.Styles("Надстрочный")
        .Execute Replace:=wdReplaceAll
    End With

End Sub

Примечание

Макрос делает действие, которое в программе "Word" делается так:

1. вызываете окно "Найти и заменить" - вкладка "Заменить";
2. ставите курсор в поле "Найти" - "Формат" - "Шрифт..." - флажок "надстрочный" - "OK";
3. ставите курсор в поле "Заменить" - "Формат" - "Стиль..." - "Надстрочный" - "OK";
4. "Заменить все".

Только макрос обрабатывает основную часть, а окно "Найти и заменить" весь документ (основную часть, колонтитулы и другое).

[DJTreeno]

Спасибо большое!!!