Sub Macro1()
Const CodeA As String = "AAAA"
Const CodeB As String = "BBBB"
Dim oRng As Range

    Set oRng = ActiveDocument.Range
    With oRng.Find
        Do While .Execute(FindText:=CodeA & "*" & CodeB, MatchWildcards:=True)
            oRng.Font.ColorIndex = wdRed
            oRng.Collapse 0
        Loop
    End With
    Set oRng = ActiveDocument.Range
    With oRng.Find
        Do While .Execute(FindText:=CodeA)
            oRng.Font.ColorIndex = wdAuto
            oRng.Collapse 0
        Loop
    End With
    Set oRng = ActiveDocument.Range
    With oRng.Find
        Do While .Execute(FindText:=CodeB)
            oRng.Font.ColorIndex = wdAuto
            oRng.Collapse 0
        Loop
    End With
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub