为段落自动添加数目

《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容是第四章“段落集合Paragraphs对象及段落Paragraph对象”第7节：为段落自动添加数目。​

第七节 段落Paragraph对象的方法

大家好，我们继续讲解段落Paragraph对象，这讲的内容是Paragraph对象的方法。这套教程我是紧扣面向对象编程来讲解的，紧扣对象、对象的属性、对象的方法来一步步的向大家展现VBA的魅力，我力争用这种方式来告诉大家什么是面向对象编程。当然，这部教程要求在学习完我的第七套教程《VBA之Excel应用》之后来学习，因为很多的VBA基本功需要提前打好。

1  Paragraph.Next 方法

这个方法返回一个段落对象, 该对象代表下一个段落。

语法：expression.Next (Count)

其中expression 是必需的。 一个代表 '段落' 对象的变量。

参数：

Count   可选   Variant   要前移的段落数。 默认值为 1。

2  Paragraph.Previous 方法

这个方法以段落对象的形式返回上一段。

语法：expression.Previous (Count)

其中expression 是必需的。 一个代表 '段落' 对象的变量。

参数：

Count   可选   Variant   要后移的段落数。 默认值为 1。

3  段落Paragraph对象的方法应用

下面我将利用一段代码作为实例。这段代码中，将在活动文档中的各段前面分别插入一个表示段落的数字和一个制表符，这是利用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

    Next

End Sub

代码截图：

代码解读：（略）

代码的运行，上述代码运行后：

今日内容回向：

   1  段落对象的Next方法及Previous方法意义是什么？

   2  如何利用上述方法设置文档的段落？

    

    

本讲内容参考程序文件：Doc 004文档.docm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：