Page number using VBA.

[Junaid]

Hello,
Can I find out which page number the cursor is in a Word document using
VBA? I don't know what to look for in Word documentation. I searched for
'location', 'page number', or 'cursor location' in MS Word documentation
and didn't find anything. Could someone help me with that?

Thanks
Junaid

 

[DeeJee]

Can I find out which page number the cursor is in a Word document
using

VBA? I don't know what to look for in Word documentation. I searched for
'location', 'page number', or 'cursor location' in MS Word documentation
and didn't find anything. Could someone help me with that?

See answer "page number" 28/09/03

Msgbox "The cursor is on page " & _
Selection.Information(wdActiveEndPageNumber)

 

[Kemosabe]

Hello,
Can I find out which page number the cursor is in a Word document using
VBA? I don't know what to look for in Word documentation. I searched for
'location', 'page number', or 'cursor location' in MS Word documentation
and didn't find anything. Could someone help me with that?

Thanks
Junaid

Public Function CurrentPageNumber() As Integer

Dim iCurrentPage As Integer

On Error GoTo Page0
ActiveDocument.Repaginate
iCurrentPage = selection.Information(wdActiveEndPageNumber)

CurrentPageNumber = iCurrentPage
Exit Function

Page0:
CurrentPageNumber = 0

End Function

 

[losmac]

Selection.Information (wdActiveEndPageNumber)