Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionMsgbox Selection.BookmarkID
Option Explicit Public WdApply As New ClasseEvenementSelectionChange '<---cette ligne est mettre en haut du module Sub Register_EvenementSelectionChange_Handler() Set WdApply.WdApplyEvents = Word.Application End Sub
' Created by 3ddI7IHd ' Creation date: 24-02-2010 ' Code Reason: Cette classe permet de detecter un changement de selection ' Ici le changement permet en particulier de detecter un click sur un signet Option Explicit Public WithEvents WdApplyEvents As Word.Application Private Sub WdApplyEvents_WindowSelectionChange(ByVal Sel As Selection) If Sel.BookmarkID > 0 Then MsgBox Sel.BookmarkID 'ici vous pouvez remplacer la MsgBox par l'ouverture d'une form ou l'execution d'une macro End Sub
Private Sub Document_Open() Call Register_EvenementSelectionChange_Handler End Sub