Changing Character Color with WordBasic

Imagine that you are developing a document that uses text colors to signal special meanings to the reader. For instance, you may use red text to indicate what the user should type. If you are developing a document in which you use color within your text, it can be a real bother to use the menus over and over again to change text colors. In such an instance, it is helpful to have a macro that modifies the color automatically. You can assign the macro to a key combination or a toolbar button so you don't have to use the menus. The following WordBasic macro changes the color of the currently selected text to red.

Sub MAIN
InSelection = SelType()
If InSelection = 2 Or InSelection = 6 Then
    FormatFont .Color = 6
Else
    Beep
End If
End Sub