sidenummer m.m.

Her er et eksempel på hvordan du fanger sidenummeret, som du står på

Public Sub DemoPageNuber()
    Dim lPage As Long
   
    For lPage = 1 To ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
        If Selection.Range.Information(wdActiveEndAdjustedPageNumber) = lPage Then
            MsgBox "Du er på side " & lPage
            Exit For
        End If
    Next
End Sub

Der findes ikke lige umiddelbart en hændelse, som kan fortælle dig, at dit dokument nu bliver en side større.....