Sub HighlightAllItalic() ' Paul Beverley - Version 06.01.21 ' Highlights all text in italic Set rng = ActiveDocument.Content With rng.Find .ClearFormatting .Replacement.ClearFormatting .Text = "" .Font.Italic = True .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .Replacement.Highlight = True .Execute Replace:=wdReplaceAll End With End Sub