Visual Basic para Aplicaciones - Macro para dar formato a Word

Sub test()

Dim char As Object

Dim bIn As Boolean

bIn = False

Selection.HomeKey Unit:=wdStory

For Each char In ActiveDocument.Characters

    If char = "(" Then

       bIn = True

    ElseIf char = ")" Then

           bIn = False

           Selection.Font.Italic = wdToggle

           Selection.Font.Color = wdColorBlack

    End If

    Selection.MoveRight Unit:=wdCharacter, Count:=1

    If bIn Then

       Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend

       Selection.Font.Italic = wdToggle

       Selection.Font.Color = wdColorRed

    End If

Next

End Sub