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