Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub ChangeColorWithReplace()
- Selection.Find.ClearFormatting
- Selection.Find.Font.Color = wdColorRed
- Selection.Find.Replacement.ClearFormatting
- Selection.Find.Replacement.Font.Color = wdColorBlack
- With Selection.Find
- .Text = ""
- .Replacement.Text = ""
- .Forward = True
- .Wrap = wdFindContinue
- .Format = True
- .MatchCase = False
- .MatchWholeWord = False
- .MatchKashida = False
- .MatchDiacritics = False
- .MatchAlefHamza = False
- .MatchControl = False
- .MatchByte = False
- .MatchWildcards = False
- .MatchSoundsLike = False
- .MatchAllWordForms = False
- End With
- Selection.Find.Execute Replace:=wdReplaceAll
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement