《VBA之Word应用》（版权10178982），是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。

这套教程是专门针对WORD VBA 的教程，是VBA中的稀缺资源，我给这套教程分归为中级教程，希望大家在VBA入门后再学习这套教程，这样会更加深入的理解面向对象编程的意义。

本套教程共三册十六章，今日内容为：VBA之Word应用第四章第七节：段落Paragraph对象的方法

【分享成果，随喜正能量】38做任何事情需要耐心、多观察自己的发心，不要凑合的心态做事，比如做一顿饭，如果你发心做最好吃的饭就会很用心去做，味道一定很棒，如果你发心做一顿凑合能吃的，那饭菜味道也可想而知；还有的人总爱把事情往坏处想，明明不存在的事在那不停地想象，那结果只会烦恼，要知道心的力量很大，应积极向上。

第四章段落集合Paragraphs对象及段落Paragraph对象

大家好，我们这章的内容是段落集合Paragraphs对象及段落Paragraph对象。在Word的相关知识点中,段落是一块重要的内容,段落是组成文档的一部分。

什么是段落呢？段落就是包含一个段落标记以及所有位于此段落标记和前一个段落标记之间的文本（不包括前一个段落标记）。段落标记包含该段落的所有格式信息。当复制单词、句子和段落时，如果包含段落标记，则所有包含在段落标记中的格式信息也被复制，并在它们被粘贴到其它位置时应用于所属段落。

本章的内容的讲解仍是从对象的属性、方法来逐渐深入地讲解。

第七节段落Paragraph对象的方法

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

1Paragraph.Next 方法

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

语法：expression.Next (Count)

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

参数：

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

2Paragraph.Previous 方法

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

语法：expression.Previous (Count)

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

参数：

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

3段落Paragraph对象的方法应用

下面我将利用一段代码作为实例。这段代码中，将在活动文档中的各段前面分别插入一个表示段落的数字和一个制表符，这是利用Next方法。然后利用Previous方法，再在各段前面插入一个表示段落的数值。我们先看下面的代码：

Sub mynzF()

‘在活动文档中的各段前面分别插入一个表示段落的数字和一个制表符。

Forn = 0 To ActiveDocument.Paragraphs.Count – 1

SetmyRange = ActiveDocument.Paragraphs(1).Next(Count:=n).Range

myRange.Select

myRange.CollapseDirection:=wdCollapseStart

myRange.InsertAftern + 1 & vbTab

Next

‘在活动文档中的各段前面插入一个表示段落的数字

Forn = ActiveDocument.Paragraphs.Count – 1 To 0 Step -1

Ifn = 0 Then

Selection.InsertBeforen + 1

Else

Selection.Previous(Unit:=wdParagraph,Count:=1).Select

Selection.InsertAftern + 1

EndIf

Next

End Sub

代码截图：

代码解读：（略）

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

今日内容回向：

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

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

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

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