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