how to find and replace a symbol with another symbol

gmayor · #4 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
What does this symbol on icons mean?	gabagool	Word	2	11-11-2012 07:19 PM
What is this symbol called as?	Franky	Word	3	11-12-2011 08:16 AM
What is this symbol? i want to get rid of it	tweaker95b	Word	1	11-17-2010 01:36 AM
How do I get rid of this type of symbol	jerry1234	Word	1	09-04-2010 05:39 PM
Check box symbol	jdthelen	Word	1	09-07-2009 01:43 PM