Option Explicit
Sub Colorsquiz()
    Dim i      As Long
    Dim Rng    As Range
    Dim Para   As Paragraph
    Set Rng = ActiveDocument.Range
    For i = 1 To Rng.Paragraphs.Count
        Set Para = Rng.Paragraphs(i)
        Para.Range.Select
        Select Case Para.Range.ParagraphFormat.Shading.BackgroundPatternColor
            Case RGB(0, 174, 239)
                Para.Range.ParagraphFormat.Shading.BackgroundPatternColor = RGB(236, 0, 140)
            Case RGB(255, 244, 253)
                Para.Range.ParagraphFormat.Shading.BackgroundPatternColor = RGB(253, 233, 241)
        End Select
        'For Font
        If Para.Range.Font.Color = RGB(0, 174, 239) Then Para.Range.Font.Color = RGB(236, 0, 140)
    Next i
End Sub