Does this code work for you?

Sub chexUAE()
Dim oshp As Shape
Dim osld As Slide
Dim otr As TextRange
Dim L 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 L = 1 To .Runs.Count
Set otr = .Runs(L)
If otr.LanguageID <> msoLanguageIDArabicUAE Then
otr.Font.Color.RGB = vbRed
Else
otr.Font.Color.RGB = vbBlack
End If
Next L
End With
End If
End If
Next oshp
Next osld
End Sub