Microsoft Office Forums - View Single Post - [Solved] how to find and replace a symbol with another symbol

gmayor · 10-08-2014, 09:13 PM

If you want to insert the symbol with a macro then and format it as 24 point red then

Code:

Sub InsertCheck()
Dim oRng As Range
    Set oRng = Selection.Range
    oRng.InsertSymbol _
            Font:="Wingdings", _
            CharacterNumber:=-3842, _
            Unicode:=True
    oRng.End = oRng.End + 1
    oRng.Font.ColorIndex = wdRed
    oRng.Font.Size = 24
    oRng.Collapse wdCollapseEnd
    oRng.Select
    Selection.Font.Reset
End Sub