如何用vba获取word某个段落的上个或下个段落的内容？

在用vba获取word文档的内容时，经常要获取某个段落的内容。

有时候我们要获取的是某个段落的下一个或上一个段落的内容。

如下图所示

黄色区域为当前选中的段落，如何获取该选中段落的上一个或下一个段落的内容呢？

可以使用Paragraph对象的Previous或Next方法获取当前段落的上一个或上N个，下一个或者下N个段落的内容。

代码如下：

Sub exceloffice()
    '作者QQ：1722187970，微信：xycgenius，微信公众号exceloffice
    Dim oP As Paragraph
    Set oP = Word.Selection.Paragraphs(1)
    Debug.Print oP.Previous.Range.Text
    Debug.Print oP.Next.Range.Text
End Sub