'l'exemple suivant montre comment interdire la modification manuelle du pied de page
' A mettre dans un module de classe appelé FooterEvent
Public WithEvents Wd As Word.Application
Private Sub Wd_WindowSelectionChange(ByVal Sel As Selection)
Dim HDIdx As Long
' on tente de recuperer l'index du pied de page de la selection.
' si la selection n'est pas un/dans (le) pied de page une erreur sera renvoyée.
On Local Error Resume Next
HDIdx = Sel.HeaderFooter.Index 'tentavive de recuperation de l'index du pied de page
If Err = 0 Then 'si err = 0 c'est que l'on est bien sur un pied de page
'dans ce cas on bascule la selection sur le document
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
'puis on balance un message d'avertissement a l'utilisateur
MsgBox "on this document, the footer can not be changed manually !"
End If
End Sub
' Le chargement de la classe se fait par un module contenant le code suivant:
Option Explicit
Public WdAppli As New FooterEvent
Sub Register_Event_Handler()
Set WdAppli.Wd = Word.Application
End Sub