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