My apologies. I thought I posted the functioning code. 
Sub ReplaceBlueRedToBlack()
Dim oSld As Slide
Dim oShp As Shape
Dim oTbl As Table
Dim lRow As Integer
Dim lCol As Integer
Dim x As Long
For Each oSld In ActivePresentation.Slides
    For Each oShp In oSld.Shapes
        If oShp.HasTextFrame Then
            If oShp.TextFrame.HasText Then
                With oShp.TextFrame.TextRange
                    For x = .Runs.Count To 1 Step -1
                        If .Runs(x).Font.Color.RGB = RGB(0, 0, 255) Or .Runs(x).Font.Color.RGB = RGB(255, 0, 0) Then
                            .Runs(x).Font.Color.RGB = RGB(0, 0, 0)
                        End If
                    Next x
                End With
            End If
        End If
        If oShp.HasTable Then
        Set oTbl = oShp.Table
            With oTbl
                For lRow = 1 To .Rows.Count
                    For lCol = 1 To .Columns.Count
                        With oTbl.Cell(lRow, lCol).Shape.TextFrame.TextRange
                            For x = .Runs.Count To 1 Step -1
                                If .Runs(x).Font.Color.RGB = RGB(0, 0, 255) Or .Runs(x).Font.Color.RGB = RGB(255, 0, 0) Then
                                    .Runs(x).Font.Color.RGB = RGB(0, 0, 0)
                                End If
                            Next x
                        End With
                    Next lCol
                Next lRow
            End With
        End If
    Next oShp
Next oSld
End Sub