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

鄂龙蒙

请教：下面代码在多页文档中，只能得到最后一页尾段的内容，想得到每一页尾段的内容，代码怎么改？谢谢！

With ActiveDocument.GoTo(1, 1, P)
          sy = wordD.Paragraphs.Count           ‘只能得到最后一页尾段的内容   
         .Move 4,  sy: .Expand 4
         arr(K, 1) = Trim(.Text)
End With


多页文档中想得到每一页尾段的内容.rar (11.33 KB, 下载次数: 2)

2017-4-5 19:43 上传

点击文件名下载附件

鄂龙蒙

Sub 多页文档中想得到每一页尾段的内容()
' For p = 1 To ActiveDocument.Paragraphs.Count     '返回当前文档中的段落数
For p = 1 To ActiveDocument.Sections.Count        '当前文档中的节数


    With ActiveDocument.GoTo(1, 1, 1)
        sy = ActiveDocument.Paragraphs.Count           '只能得到最后一页尾段的内容
        .Move 4, sy: .Expand 4
        MsgBox .Text
    End With
Next p
   
End Sub

duquancai

每一页段尾内容？1.每一页那一个段落？2.更胡扯的是段尾内容，段尾根本没有任何内容。

duquancai

又不模拟附件，只有你自己能看懂吧！

jiminyanyan

估计是要每一页的最后一段．．．．．．

鄂龙蒙

duquancai 发表于 2017-4-5 18:41
每一页段尾内容？1.每一页那一个段落？2.更胡扯的是段尾内容，段尾根本没有任何内容。

对不起，是我没表述清楚。想要得到每一页最后一个段落的内容。谢谢！

鄂龙蒙

jiminyanyan 发表于 2017-4-5 19:26
估计是要每一页的最后一段．．．．．．

是的，想要得到每一页最后一个段落的内容。请帮忙谢谢！

鄂龙蒙

duquancai 发表于 2017-4-5 18:43
又不模拟附件，只有你自己能看懂吧！

模拟了附件，请帮忙，谢谢！

jiminyanyan

鄂龙蒙 发表于 2017-4-5 19:44
模拟了附件，请帮忙，谢谢！

Sub jimin()
    Dim pat, m, n, arr(1 To 100), k
    For p = 1 To ActiveDocument.Paragraphs.Count - 1
         'MsgBox ActiveDocument.Paragraphs(p)
         Set pat = ActiveDocument.Paragraphs(p).Range
         n = pat.Information(wdActiveEndPageNumber)
         Set pat = ActiveDocument.Paragraphs(p + 1).Range
         m = pat.Information(wdActiveEndPageNumber)
         If n <> m Then
            k = k + 1
            arr(k) = ActiveDocument.Paragraphs(p).Range.Text
         End If
    Next
    arr(k + 1) = ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.Text
    MsgBox "OK"
End Sub

jiminyanyan

．．．．．．．