Detecter l'activation d'un pied de page dans un document word

Commenter

Contenu du snippet 

'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

Compatibilité : VBA

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (bigfish_le vrai)