[求助]请问如何获得当前是第几页?

flyswift

我用Selection.Information(wdActiveEndPageNumber),但它获得的是光标所在位置的页码数..

但是有可能光标在第一页,而我已经将页面拉到第10页了..我用VBA编程怎么知道是第10页呢?

守柔

这是一个不尽合理的要求，如果你将滚动条拖到9-10之间，算哪一页呢？

下面是一个不尽正确的代码，供参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-5-5 4:54:02 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub GetVerticalScrollBarPostion() Dim VPNumber As Long, PagesCount As Integer, Temp As Byte With ActiveDocument PagesCount = .Content.Information(wdNumberOfPagesInDocument) VPNumber = ActiveDocument.ActiveWindow.VerticalPercentScrolled If VPNumber < 100 Then Temp = 1 Else Temp = 0 MsgBox "当前窗口页面大致位置在" & Int(PagesCount * VPNumber / 100) + Temp & "页" End With End Sub '----------------------