Расшифровка скрипта и устранение от него последствий - VBA

Формулировка задачи:

Приветствую всех Решил обойти анти-плагиат для ВКР и тут как это бывает это все выяснялось и требуют нормальную работу Хотел бы попросить человеку долёкому от программирования как отменить действия макроса Вот сам макрос

Sub AntiPlagiat1()
With ActiveDocument.Range.Find
.Text = "([A-Za-zА-Яа-яЁё])([A-Za-zА-Яа-яЁё])": .MatchWildcards = True
.Replacement.Text = "\1#$&@\2"
.Execute Replace:=wdReplaceAll
.Text = "#$&@": .MatchWildcards = False
.Replacement.Text = " ": .Replacement.Font.Size =
.Execute Replace:=wdReplaceAll
End With
End Sub

Буду благодарен если кто то поможет

Решение задачи: «Расшифровка скрипта и устранение от него последствий - VBA»

textual
                            Листинг программы 
                        

                            Selection.Find.ClearFormatting
    Selection.Find.Font.Size = 1
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
                        