如何用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
       

发表评论