Sub proccesingWord()
    Dim myWord As New Word.Application
    Dim myDocument As Word.Document
    Dim result As String
    result = "Фамилия" & Chr(182) & "Имя" & Chr(182) & "Отчество"    
    On Error GoTo InStr       
    
    Set myDocument = myWord.Documents.Open("C:\Users\sasha\OneDrive\Рабочий стол\Пример2\Примерно.doc")
        
        myDocument.Content.Find.Execute "#Замена#", False, False, False, False, False, True, 1, False, result, 2      
        
        myDocument.SaveAs ("C:\Users\sasha\OneDrive\Рабочий стол\Пример2\Примерно2.doc")
        'myDocument.Undo
        
    myDocument.Close
    myWord.Quit
    

InStr:
    If Err.Description <> "" Then
        MsgBox "Ошибка " & Err.Description
        myDocument.Close
        myWord.Quit
    End If   

End Sub