hændelse/event i forb. med sideskift i word

Anbring dette i ThisDocument, og kør RegisterEventHandler

Public WithEvents App As Word.Application
Dim oldpage As Integer


Public Sub Register_Event_Handler()
    Set App = Word.Application
 
   
End Sub

Private Sub App_WindowSelectionChange(ByVal Sel As Selection)
  If oldpage <> Sel.Information(wdActiveEndPageNumber) Then
        MsgBox "Vi er på en ny side"
  End If
  oldpage = Sel.Information(wdActiveEndPageNumber)
End Sub

Register_Event_Handler skal køres hver gang du ændrer i koden (tror jeg nok), måske skal den også kaldes i Document_Open
Koden kaldes i øvrigt også når dokumentet åbnes, ikke kun når man flytter cursoren til en ny side. Kan forhindres ved at teste om oldpage er nul.