Insert cards symbols in black or red within LibreOffice Writer (map these with a toolbar with card symbols as names)

MacroBridge

REM  *****  BASIC  *****

Sub InsertSymbol(text As String, color As long)

Dim oVC As Object
Dim oCursor As Object
Dim savColor as long

oVC = thisComponent.getCurrentController.getViewCursor
oCursor = oVC.getText.createTextCursorByRange(oVC)

savColor = oCursor.charColor
oCursor.charColor = color

oText = oVC.text
oText.insertString(oVC, text, False)

oCursor.charColor = savColor

End Sub

Sub InsertK
	InsertSymbol("?", RGB(255,0,0))
End Sub

Sub InsertC
	InsertSymbol("?", RGB(255,0,0))
End Sub

Sub InsertT
	InsertSymbol("?", RGB(0,0,0))
End Sub

Sub InsertP
	InsertSymbol("?", RGB(0,0,0))
End Sub