The following should do it
Sub Macro1()
Dim oRng As Range
Set oRng = ActiveDocument.Range
With oRng.Find
Do While .Execute(findText:="\(*\)", MatchWildcards:=True)
oRng.Start = oRng.Start + 1
oRng.End = oRng.End - 1
If oRng.Font.Italic = True Then
'MsgBox oRng.Text & " - True"
oRng.Start = oRng.Start - 1
oRng.End = oRng.End + 1
oRng.Characters.First.Font.Italic = True
oRng.Characters.Last.Font.Italic = True
Else
'MsgBox oRng.Text & " - False"
oRng.Start = oRng.Start - 1
oRng.End = oRng.End + 1
oRng.Characters.First.Font.Italic = False
oRng.Characters.Last.Font.Italic = False
End If
oRng.Collapse 0
Loop
End With
Set oRng = Nothing
End Sub