Set myRange = Selection.Paragraphs(1).Range
With myRange
.Collapse Direction:=wpsCollapseStart
.InsertSymbol CharacterNumber:=183, _
Font:="Symbol", Unicode:=False
.MoveStart Unit:=wpsCharacter, Count:=1
.InsertAfter vbTab
End With