“Insert a Colored Comment” Macro

What I need this for is to insert a new comment of a specified color as part of another macro. Therefore, I need to be able to set the color regardless of the mouse position and the selection, as I explained several times in the original discussion:

== 1 ==
== 2 ==
== 3 ==
== 4 ==