那位帮忙提供一个VBA给段落加项目符号的简单例子？

河卿

录制宏的代码很长，看不太懂。

守柔

Sub test() Dim i As Paragraph For Each i In ActiveDocument.Paragraphs With i.Range .Collapse Direction:=wdCollapseStart .InsertSymbol CharacterNumber:=38, Font:="Wingdings", Unicode:=False .MoveStart Unit:=wdCharacter, Count:=1 .InsertAfter vbTab End With Next End Sub

河卿

先谢谢，再研究。