Se você sabe que sempre desejará atuar em posições de caractere específicas dentro da string, este trecho de VBA fará isso por você no PPT:
Option Explicit
' Edit these as needed to control where the color change starts/stops
Const lStartChar As Long = 2
Const lNumChars As Long = 4
Sub ChangeFontColor()
' This assumes that you've selected the text you want to operate on
With ActiveWindow.Selection.TextRange.Characters(lStartChar, lNumChars)
.Font.Color.RGB = RGB(255, 0, 0)
End With
End Sub