Signets Word - Macros VBA à ajouter, supprimer, accéder, modifier

Ajouter un marque-page

Cette macro Word ajoutera un signet :

Sub AddBookmark() ActiveDocument.Bookmarks.Add "easyexcel_net_01" End Sub

Supprimer le signet

Cette macro VBA supprimera un signet :

Sub DeleteBookmark() If ActiveDocument.Bookmarks.Exists("easyexcel_net_01") Ensuite, nous devons vérifier si le signet nommé "easyexcel_net_01" existe dans le document actif ActiveDocument.Bookmarks(Index:="easyexcel_net_01").Delete End If End Sub

Aller au signet

Cette macro simple ira dans un signet :

Sub GoToBookmark() If ActiveDocument.Bookmarks.Exists("easyexcel_net_01") Alors 'nous devons vérifier si le signet nommé "easyexcel_net_01" existe dans le document actif Selection.GoTo What:=wdGoToBookmark, Name:="easyexcel_net_01" End If End Sub

Modifier le signet

Cette macro modifiera le contenu d'un signet :

Sub ModifyBookmarkContent() ' modifier le contenu du signet ' plus compliqué, car la modification du contenu de la plage de signet supprimera le signet Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists("easyexcel_net_01") Ensuite, nous devons vérifier si le signet nommé "easyexcel_net_01" existe en mode actif doc 'Identifier la plage de signets actuelle et insérer du texte Set oRangeBKM = ActiveDocument.Bookmarks("easyexcel_net_01").Range oRangeBKM.Text = "easyexcel.net" 'Recréer le signet ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRangeBKM End If End Sub

Il s'agit d'une fonction de modification de signet :

Sub UpdateBookmarkContent(strBookMarkName As String, strNewText As String) ' Procédure utilisable pour ajouter dans Dim ouRangeBKM As Range If ActiveDocument.Bookmarks.Exists(strBookMarkName) Alors 'nous devons vérifier si le signet nommé "easyexcel_net_01" existe dans le document actif 'Identify plage de signets actuelle et insérer du texte Set oRangeBKM = ActiveDocument.Bookmarks(strBookMarkName).Range oRangeBKM.Text = strNewText 'Recréer le signet ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub

Vous pouvez appeler la fonction en ajoutant le nom du signet et le nouveau texte comme arguments :

Sub CallBookmarkFunction() Appeler UpdateBookmarkContent("easyexcel_net_01", "easyexcel.net") End Sub