Segnalibri di Word - Macro VBA da aggiungere, eliminare, andare a, modificare

Aggiungi segnalibro

Questa macro di Word aggiungerà un segnalibro:

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

Elimina segnalibro

Questa macro VBA eliminerà un segnalibro:

Sub DeleteBookmark() If ActiveDocument.Bookmarks.Exists("easyexcel_net_01") Then 'dobbiamo verificare se il segnalibro denominato "easyexcel_net_01" esiste nel documento attivo ActiveDocument.Bookmarks(Index:="easyexcel_net_01").Delete End If End Sub

Vai al segnalibro

Questa semplice macro andrà a un segnalibro:

Sub GoToBookmark() If ActiveDocument.Bookmarks.Exists("easyexcel_net_01") Then 'dobbiamo verificare se il segnalibro denominato "easyexcel_net_01" esiste nel documento attivo Selection.GoTo What:=wdGoToBookmark, Name:="easyexcel_net_01" End If End Sub

Modifica segnalibro

Questa macro modificherà il contenuto di un segnalibro:

Sub ModifyBookmarkContent() 'cambia il contenuto dei segnalibri' più complicato, perché la modifica del contenuto dell'intervallo dei segnalibri eliminerà il segnalibro Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists("easyexcel_net_01") Allora 'dobbiamo controllare se il segnalibro denominato "easyexcel_net_01" esiste in attivo doc 'Identifica l'intervallo di segnalibri corrente e inserisci il testo Set oRangeBKM = ActiveDocument.Bookmarks("easyexcel_net_01").Range oRangeBKM.Text = "easyexcel.net" 'Crea nuovamente il segnalibro ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRangeBKM End If End Sub

Questa è una funzione di modifica dei segnalibri:

Sub UpdateBookmarkContent(strBookMarkName As String, strNewText As String) ' Procedura "usabile" per aggiungere in Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists(strBookMarkName) Then 'dobbiamo verificare se il segnalibro denominato "easyexcel_net_01" esiste nel documento attivo 'Identify intervallo di segnalibri corrente e inserisci il testo Set oRangeBKM = ActiveDocument.Bookmarks(strBookMarkName).Range oRangeBKM.Text = strNewText 'Rendi il segnalibro ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub

Puoi chiamare la funzione aggiungendo il nome del segnalibro e il nuovo testo come argomenti:

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