Word VBA Макросы: Переключение между двумя цветами текста (шрифта).

[Дмитрий Брут]

Нужно создать макрос в Ворде, чтобы после нажатия кнопки цвет менялся на красный во время набора текста, а при повтором нажатии, чтобы цвет возвращался на чёрный.

Не знаете ли, уважаемые - такое возможно сделать?

[Администратор]

Sub ЧёрныйКрасныйТекст()
    If Selection.Font.ColorIndex = wdAuto Then
        Selection.Font.ColorIndex = wdRed
    Else
        Selection.Font.ColorIndex = wdAuto
    End If
End Sub

[Дмитрий Брут]

спасибо