Microsoft Office Forums - View Single Post - [Solved] Simple issue: formatting mroe than one text just using one module

syl3786 · 10-13-2023, 03:18 AM

Quote:

Originally Posted by vivka

Hi, try this:

Code:

Sub formatting()

  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  Selection.Find.Replacement.Font.Italic = True
  With Selection.Find
    .Text = "et al"
    .Forward = True
    .Wrap = wdFindContinue
    .MatchCase = True
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
    .Text = "Apple"
    .Execute Replace:=wdReplaceAll
  End With
End Sub

It works well! Many thanks for your help!