_Boroda_, а в начале/конце - это где?
[vba]Код
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
[/vba]