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

鄂龙蒙 · 发表于 2017-4-5 12:53

本帖最后由鄂龙蒙于 2017-4-5 19:43 编辑

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

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 15:56

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 · 发表于 2017-4-5 18:41

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

duquancai · 发表于 2017-4-5 18:43

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

jiminyanyan · 发表于 2017-4-5 19:26

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

鄂龙蒙 · 发表于 2017-4-5 19:39

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

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

鄂龙蒙 · 发表于 2017-4-5 19:40

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

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

鄂龙蒙 · 发表于 2017-4-5 19:44

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

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

jiminyanyan · 发表于 2017-4-5 19:53

鄂龙蒙发表于 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 · 发表于 2017-4-5 19:54

．．．．．．．

		自动登录	找回密码
密码			免费注册

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

评分