多页文档中想得到每一页尾段的内容

jiminyanyan

．．．．．．

QQ214189912

Sub 遍历页面2()
   Dim objPage As Page
   For Each objPage In ActiveDocument.Windows(1).Panes(1).Pages
     MsgBox objPage.Rectangles(1).Range.Paragraphs(objPage.Rectangles(1).Range.Paragraphs.Count).Range.Text
   Next
End Sub

鄂龙蒙

jiminyanyan 发表于 2017-4-5 19:54
．．．．．．．

又向您老师请教了：http://club.excelhome.net/thread-1338697-1-1.html

谢谢！

weiyingde

鄂龙蒙 发表于 2017-4-6 17:45
又向您老师请教了：http://club.excelhome.net/thread-1338697-1-1.html

谢谢！

也可以在VBA友的后面加两句，看看效果：
For i = LBound(arr) To UBound(arr)
       If Len(arr(i)) <> 0 Then MsgBox arr(i)
  Next