vba获取word标题个数（vba获取word某个段落的上个或下个段落的内容）

在用vba获取word文档的内容时，经常要获取某个段落的内容。有时候我们要获取的是某个段落的下一个或者上一个段落的内容。

如下图所示

黄色区域为当前选中的段落，如何获取该选中段落的上一个或下一个段落的内容呢？可以使用Paragraph对象的Previous或Next方法获取当前段落的上一个或上N个，下一个或者下N个段落的内容。

代码如下：

Sub 提取前后段落()

Dim oP As Paragraph

Set oP = Word.Selection.Paragraphs(1)

Debug.Print oP.Previous.Range.Text

Debug.Print oP.Next.Range.Text

End Sub

对于word-vba的对应最好的参考手册就是官网的文档，里面也有简单案例，适合我我们学习。