Sub nadji_i_oboji()
'
' nadji Makronaredba
' nalazi niz slova hr
'
   For i = 1 To 10000
   Selection.Find.ClearFormatting
   With Selection.Find
       .Text = "aaac"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   With Selection.Font
       .Name = "Times New Roman"
       .Size = 12
       .Bold = False
       .Italic = False
       .Underline = wdUnderlineNone
       .UnderlineColor = wdColorAutomatic
       .StrikeThrough = False
       .DoubleStrikeThrough = False
       .Outline = False
       .Emboss = False
       .Shadow = False
       .Hidden = False
       .SmallCaps = False
       .AllCaps = False
       .Color = wdColorRed
       .Engrave = False
       .Superscript = False
       .Subscript = False
       .Spacing = 0
       .Scaling = 100
       .Position = 0
       .Kerning = 0
       .Animation = wdAnimationNone
   End With
   Next i
End Sub