[Raulj]

Kuidas saaks seda macrot Wordis dokumendi lõpuni lasta jooksutada?

Sub auto()
'
' auto Makro
'
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "auto"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveUp Unit:=wdParagraph, Count:=1
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.Font.Color = wdColorRed
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

Tegemist otsinguga, mis värvib lõigu ära, kui sõna leiab.

[Absona]

Paned asja tsüklis käima.

[Raulj]