Sub ConvertFromWordToExcelTarget()
'On Error GoTo letQuit
  Dim fd As FileDialog
  Dim FSO As Object
  Dim objWordTarget As Object
  Dim wrdTarget As Object
  Dim strTargetFile As String 'целевой файл
  Set FSO = CreateObject("Scripting.FileSystemObject")
    
'выбор целевого файла:
  Set fd = Application.FileDialog(msoFileDialogFilePicker)
  With fd
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Файлы Word", "*.doc*"
    .Show
  End With
  If fd.SelectedItems.Count = 0 Then
    MsgBox "файл не выбран, операция прервана"
    GoTo letQuit 'на выход
  End If
  strTargetFile = fd.SelectedItems(1)   'имя выбранного файла
  
  Set objWordTarget = CreateObject("Word.Application")
  Set wrdTarget = objWordTarget.Documents.Open(strTargetFile, , True) 'открытие целевого файла
  
  objWordTarget.Visible = True
  objWordTarget.Activate
  'GoTo ops
  objWordTarget.Run "replaceSymbolsPub" 'replaceSymbolsPubCopy - работает, а с заменой символов уже нет
  'GoTo ops
  wrdTarget.Close False
  
test:
  MsgBox "oki"
letQuit:
    objWordTarget.Quit
    Set wrdTarget = Nothing: Set objWordTarget = Nothing
    Set FSO = Nothing
  MsgBox "Quit"
  Exit Sub
ops:
  wrdTarget.Close False
    objWordTarget.Quit
    Set wrdTarget = Nothing: Set objWordTarget = Nothing
    Set FSO = Nothing
  MsgBox "Ops"
End Sub

Public Sub replaceSymbolsPubCopy()
  Selection.WholeStory
  Selection.Copy
End Sub

Public Sub replaceSymbolsPub()
  Selection.WholeStory
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
'замена неразрывных пробелов на пробел
  With Selection.Find
    .Text = "^s"
    .Replacement.Text = " "
    .Forward = True
    .Wrap = wdFindAsk
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll 'РУГАЕТСЯ ТУТ !!!

'замена ПИ на пробел
  With Selection.Find
    .Text = "^p"
    .Replacement.Text = " "
    .Forward = True
    .Wrap = wdFindAsk
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
  'Selection.EscapeKey
  
'копия результата
  Selection.WholeStory
  Selection.Copy
End Sub

Sub ConvertFromWordToExcelTarget()
'On Error GoTo letQuit
    Dim fd As FileDialog
    Dim FSO As Object
    Dim objWordTarget As Object
    Dim wrdTarget As Object
    Dim strTargetFile As String    'целевой файл
    Set FSO = CreateObject("Scripting.FileSystemObject")

    'выбор целевого файла:
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Файлы Word", "*.doc*"
        .Show
    End With
    If fd.SelectedItems.Count = 0 Then
        MsgBox "файл не выбран, операция прервана"
        GoTo letQuit    'на выход
    End If
    strTargetFile = fd.SelectedItems(1)   'имя выбранного файла

    Set objWordTarget = CreateObject("Word.Application")
    Set wrdTarget = objWordTarget.Documents.Open(strTargetFile, , True)    'открытие целевого файла
    With objWordTarget
        .Visible = True
        .Activate
        'GoTo ops
        .Selection.WholeStory
        .Selection.Find.ClearFormatting
        .Selection.Find.Replacement.ClearFormatting
        'замена неразрывных пробелов на пробел
        With .Selection.Find
            .Text = "^s"
            .Replacement.Text = " "
            .Forward = True
            .Wrap = 2
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        .Selection.Find.Execute Replace:=2    'РУГАЕТСЯ ТУТ !!!

        'замена ПИ на пробел
        With .Selection.Find
            .Text = "^p"
            .Replacement.Text = " "
            .Forward = True
            .Wrap = 2
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        .Selection.Find.Execute Replace:=2
        '.Selection.EscapeKey

        'копия результата
        .Selection.WholeStory
        .Selection.Copy
    End With
    '    objWordTarget.Run "replaceSymbolsPub"    'replaceSymbolsPubCopy - работает, а с заменой символов уже нет
    'GoTo ops
    wrdTarget.Close False

test:
    MsgBox "oki"
letQuit:
    objWordTarget.Quit
    Set wrdTarget = Nothing: Set objWordTarget = Nothing
    Set FSO = Nothing
    MsgBox "Quit"
    Exit Sub
ops:
    wrdTarget.Close False
    objWordTarget.Quit
    Set wrdTarget = Nothing: Set objWordTarget = Nothing
    Set FSO = Nothing
    MsgBox "Ops"
End Sub