本示例在选定内容的第一个段落起始处插入一个项目符号和一个制表位。

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