With Shp With .TextFrame.TextRange .InsertSymbol Font:="+Body", CharacterNumber:=9679, Unicode:=True .Font.ColorIndex = wdRed End With .Line.Visible=msofalse . . .