You really need a macro for this:
Code:
Sub Demo()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument.Range
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "[0-9].[ a-zA-Z]@[,0-9]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchWildcards = True
End With
Do While .Find.Execute
i = i + 1
.Start = .Start + 3
.End = .End - 1
.Font.Italic = True
.Start = .Paragraphs.Last.Range.End
Loop
End With
Application.ScreenUpdating = True
MsgBox i & " titles formatted."
End Sub
For PC macro installation & usage instructions, see:
Installing Macros
For Mac macro installation & usage instructions, see:
Word:mac - Install a Macro