Поиск текста в сносках : замена дефиса на тире или тире на дефис...

Sub Макрос()
 
'0) если есть сноски
       If ActiveDocument.Footnotes.Count <> 0 Then
'1) Запоминаем, сколько отображается областей, чтобы понять, открылась область со сносками
        ' или закрылась, т.к. команда ниже делает и то и другое в зависимости от ситуации.
    var = ActiveWindow.Panes.Count
    '2) Отображение области со сносками.
    ActiveWindow.View.SplitSpecial = wdPaneFootnotes
    '3) Проверяем, закрылась область или открылась. Если закрылась, то ещё раз открываем.
    If ActiveWindow.Panes.Count < var Then
        ' Отображение области со сносками.
        ActiveWindow.View.SplitSpecial = wdPaneFootnotes
    End If
 '2. Переход в начало области сносок. В некоторых случаях курсор сам не оказывается
        ' в начале, например, если сноски скопировать и вставить в новый пустой файл.
    Selection.HomeKey Unit:=wdStory
 
 '3. Поиск по сноскам (или ваш код)
     Selection.Find.ClearFormatting
    Selection.Find.replacement.ClearFormatting
    With Selection.Find
        .text = " ^45 "
        .replacement.text = " " & ChrW(8211) & " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'
'
'
    Selection.Find.ClearFormatting
    Selection.Find.replacement.ClearFormatting
    With Selection.Find
        .text = "([A-zА-я])" & ChrW(8211) & "([A-zА-я])"
        .replacement.text = "\1^45\2"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    '4. Закрытие области со сносками.
    ActiveWindow.View.SplitSpecial = lngPaneType
     End If
End Sub