This example inserts a double-headed arrow at the insertion point.
With Selection
.Collapse Direction:=wdCollapseStart
.InsertSymbol CharacterNumber:=171, _
Font:="Symbol", Unicode:=False
End With
This example inserts a bullet and a tab stop at the beginning of the first paragraph in the selection.
Set myRange = Selection.Paragraphs(1).Range
With myRange
.Collapse Direction:=wdCollapseStart
.InsertSymbol CharacterNumber:=183, _
Font:="Symbol", Unicode:=False
.MoveStart Unit:=wdCharacter, Count:=1
.InsertAfter vbTab
End With