Верхнее подчеркивание и нижний индекс

Sub Find_p_then_upline_previous_icon()
Dim Счётчик As Long
    Счётчик = 0
Selection.HomeKey wdStory   'курсор ставим в начало документа Word
 
With Selection
    .Find.Text = "p"        'будем (при поиске) ставить курсор на пи (не эр!), выделяя его
    .Find.MatchCase = True  'учитывать будем только малые буквы пи (здесь)
        
    Do While .Find.Execute  'пока поиск срабатывает
       Счётчик = Счётчик + 1
       .Collapse            'сброс выделения по ходу поска (здесь влево)
       .TypeText ChrW(175)  'печать надчёркивания
       .MoveLeft Count:=2   'курсор ставим на предыдущий знак
       .MoveRight Extend:=wdExtend  'выделяем его
    With Selection.Font     'работаем в диалоге Шрифт
    .Spacing = -.Size \ 2   'уплотняем интервал до верхнего подчерка (на полкегля)
    End With
       .MoveRight Count:=3  'курсор ставим за пи (и поиск продолжается)
    Loop
End With
    
'   MsgBox ("Найдено малых букв пи (p) и сделано надчёркиваний: " & Счётчик & ".")
End Sub

Sub Find_n_then_toggle_previous_to_subscript()
With Selection
    .HomeKey wdStory        'курсор ставим в начало документа Word
    .Find.Text = "n"        'ставим при поиске курсор на малую букву n, выделяя
    .Find.MatchCase = True  'учитываем только малые буквы (здесь: n)
        
    Do While .Find.Execute  'пока поиск срабатывает
    .Collapse               'сброс выделения с найденного текста (здесь: с "n")
    .MoveLeft               'курсор ставим на предыдущий знак
    .Characters(1).Select   'выделяем его
    .Font.Subscript = wdToggle 'переключаем вид на нижний индекс (при 1-м проходе)
    .MoveRight Count:=2  'курсор ставим за уже найденную букву (поиск продолжается)
    Loop
    
End With
End Sub