下面我将利用一段代码作为实例。这段代码中,将在活动文档中的各段前面分别插入一个表示段落的数字和一个制表符,这是利用Next方法。然后利用Previous方法,再在各段前面插入一个表示段落的数值。我们先看下面的代码: Sub mynzF() '在活动文档中的各段前面分别插入一个表示段落的数字和一个制表符。 For n = 0 To ActiveDocument.Paragraphs.Count - 1 Set myRange = ActiveDocument.Paragraphs(1).Next(Count:=n).Range myRange.Select myRange.Collapse Direction:=wdCollapseStart myRange.InsertAfter n + 1 & vbTab Next '在活动文档中的各段前面插入一个表示段落的数字 For n = ActiveDocument.Paragraphs.Count - 1 To 0 Step -1 If n = 0 Then Selection.InsertBefore n + 1 Else Selection.Previous(Unit:=wdParagraph, Count:=1).Select Selection.InsertAfter n + 1 End If NextEnd Sub 代码截图: