Red Suit Symbols Macro

[altaynz]

I need to create a macro so that I can insert a heart of diamond symbol, have it appear in red but have the next character revert to black. I did solve this problem some years ago but my old computer died taking the macro with it. I can't forth life of me remember how I did it. Any help?

[gmayor]

The following should do th trick


Sub Diamond()
Dim oRng As Range
Set oRng = Selection.Range
With oRng
.Collapse 0
.InsertSymbol _
Font:="Symbol", _
CharacterNumber:=-3928, _
Unicode:=True 'for hearts character number 3297
.Characters(1).Font.ColorIndex = wdRed
.MoveEnd wdCharacter, 1
.Collapse 0
.Text = Chr(32)
.Font.ColorIndex = wdBlack
.Collapse 0
.Select
End With
Set oRng = Nothing
End Sub