Here is a copy of one of the macros I use:
Sub FindBoldItalics()
Selection.Find.ClearFormatting
With Selection.Find.Font
.Bold = True
.Italic = True
End With
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
If Not Selection.Find.Found Then
MsgBox ("No bold italics found in Document")
Else: End If
End Sub
This was initially created by recording my actions using the Word inbuilt Macro Recording facility.
It has been a while, but I think I tidied it up a bit after that.
I'm sure that someone proficient in VB could make it much shorter and/or neater, but it works for me!