Форум по VBA и MS Office

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

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

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

спасибо