Есть два способа сделать это.Вы можете использовать Font.ColorIndex
для простого выбора или Font.Fill.ForeColor
для более широкого выбора.Вот несколько VBA:
Sub ChangeColorThisWay()
Dim s As Range: Set s = Selection.Range
s.Font.Fill.ForeColor = WdColor.wdColorRed
End Sub
Sub ChangeColorThatWay()
Dim s As Range: Set s = Selection.Range
s.Font.ColorIndex = WdColorIndex.wdBrightGreen
End Sub
Обратите внимание, что на Font.Fill.ForeColor
вы также имеете доступ к свойству RGB
и можете установить шрифт любого непостоянного цвета, например s.Font.Fill.ForeColor.RGB = RGB(255, 255, 0)
устанавливает его нажелтый.