Блок схема по макросу в Word

Sub UD()
 
 Selection.Find.ClearFormatting
 With Selection.Find.Font
  .StrikeThrough = True
  .DoubleStrikeThrough = False
 End With
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
  .Text = ""
  .Replacement.Text = ""
  .Forward = True
  .Wrap = wdFindContinue
  .Format = True
  .MatchCase = False
  .MatchWholeWord = False
  .MatchByte = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
 
End Sub

Sub COLOR_RED_A()
'
 
'
 Selection.Find.ClearFormatting
 Selection.Find.Font.Color = wdColorRed
 Selection.Find.Replacement.ClearFormatting
 Selection.Find.Replacement.Font.Color = wdColorAutomatic
 With Selection.Find
  .Text = ""
  .Replacement.Text = ""
  .Forward = True
  .Wrap = wdFindContinue
  .Format = True
  .MatchCase = False
  .MatchWholeWord = False
  .MatchByte = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
 End Sub
 Sub COLOR_a()
 
 Selection.WholeStory
 Selection.Font.Color = wdColorAutomatic
End Sub