|
Visual Basic (VB and VBA) |
|
Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected] |
| If in doubt, record a macro and inspect the entrails! |
Please read the DISCLAIMER.
Here is an INDEX to all the procedures.
You will probably need one copy of my GLOBAL DECLARATIONS.
Public Function lngGetCurrentPageNumber(lngOffset As Long)
' Procedure : lngGetCurrentPageNumber
' Description: Return the page number, optionally adjusted.
' Copyright: Chris Greaves Inc.
' Inputs: Long offset to augment the page number.
' Returns: LONG page number (may be invalid!)
' Assumes: Nothing
' Side Effects: None.
' Tested: By the calls shown below.
lngGetCurrentPageNumber = Selection.Information(wdActiveEndPageNumber) + lngOffset
'Sub TESTlngGetCurrentPageNumber()
' MsgBox lngGetCurrentPageNumber(0) ' get current page number
' MsgBox lngGetCurrentPageNumber(1) ' get next page number
' MsgBox lngGetCurrentPageNumber(-1) ' get previous page number
' ' Do we have two more pages after this page?
' If lngGetCurrentPageNumber(2) > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Then
' MsgBox "no we DO NOT have two more pages after this page"
' Else
' MsgBox "yes we have two more pages after this page"
' End If
'End Sub
End Function
| We all knew nothing when we started … |
|
Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001 |