如何用vba获得某个节是从第几页到第几页的？

Tiptoe · 发表于 2014-3-16 19:22

如题所示，求高手解答

loquat · 发表于 2014-3-16 20:45

Sub 节信息(节%)
With ActiveDocument()
Debug.Print .Range(1, .GoTo(wdGoToSection, wdGoToAbsolute, 节).Start).ComputeStatistics(wdStatisticPages) '获取该节首页码
Debug.Print .Sections(节).Range.ComputeStatistics(wdStatisticPages) - IIf(节 = .Sections.Count, 0, 1) '获取该节总页数
End With
End Sub

复制代码

Tiptoe · 发表于 2014-3-21 10:42

谢谢啊，调试成功了。如何获取一个文档中有多少个节呢？

loquat · 发表于 2014-3-21 12:22

本帖最后由 loquat 于 2014-3-24 13:18 编辑

Sub 返回节信息()
Dim i%, aCount%
With ActiveDocument()
aCount = .Sections.Count
For i = 1 To aCount
Debug.Print .Range(1, .GoTo(wdGoToSection, wdGoToAbsolute, i).Start).ComputeStatistics(wdStatisticPages) '获取该节首页码
Debug.Print .Sections(i).Range.ComputeStatistics(wdStatisticPages) - IIf(i = .Sections.Count, 0, 1) '获取该节总页数
Next i
End With
End Sub

复制代码

sqhsqhli · 发表于 2014-3-24 08:39

不错，不错

huanger999 · 发表于 2014-3-25 19:01

嗯，挺不错的，已经使用了。

loquat · 发表于 2014-3-25 21:21

huanger999 发表于 2014-3-25 19:01
嗯，挺不错的，已经使用了。

其实这是一个思路，尽量避免Selection, Select, Activate这样的对象或方法的使用。可以提高效率。

xifeng116 · 发表于 2020-5-17 02:46

loquat 发表于 2014-3-21 12:22

我也从中得到了启发，谢谢老师！只不过当各个节的页码有不连续的时候，无法正确获得某些节的首页码，只获得页数，如第一节总页数为10页，第二节开始页码为1时，第100页的页码不是100，看来还是得要用到“Selection.Information（wdActiveEndAdjustedPageNumber）”才行。还有，当i=1时出错。

dfzaq · 发表于 2020-5-19 10:05

对我很有帮助，谢谢！

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

[求助] 如何用vba获得某个节是从第几页到第几页的？

评分