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