Application.EnableEvents = 0

Application.EnableEvents = 1

Sub Макрос1()
     Application.ScreenUpdating = False
     Selection.HomeKey Unit:=wdStory
     Selection.Find.ClearFormatting
     Selection.Find.Font.Bold = True
     While Selection.Find.Execute = True
         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
         Selection.MoveDown Unit:=wdLine, Count:=1
         Selection.MoveRight Unit:=wdCharacter, Count:=2
         Selection.MoveRight Unit:=wdCell
         Application.Keyboard (1049)
         Application.Keyboard (1058)
         Selection.TypeText Text:="Дудко Л.І."
     Wend
     Application.ScreenUpdating = True
End Sub