Если вы знаете, что вам всегда захочется воздействовать на определенные позиции символов в строке, этот фрагмент VBA сделает это за вас в 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