Marcadores de Word: macros de VBA para agregar, eliminar, ir a, modificar

Añadir marcador

Esta macro de Word agregará un marcador:

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

Eliminar marcador

Esta macro de VBA eliminará un marcador:

Sub DeleteBookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Entonces 'necesitamos verificar si el marcador llamado "easyexcel_net_01" existe en el documento activo ActiveDocument.Bookmarks (Index: = "easyexcel_net_01"). Delete End If End Sub

Ir a marcador

Esta simple macro irá a un marcador:

Sub GoToBookmark () Si ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Entonces 'necesitamos comprobar si el marcador llamado "easyexcel_net_01" existe en la selección de documento activa. Ir a Qué: = wdGoToBookmark, Nombre: = "easyexcel_net_01" End If End Sub

Modificar marcador

Esta macro modificará el contenido de un marcador:

Sub ModifyBookmarkContent () 'cambiar el contenido del marcador' es más complicado, porque cambiar el contenido del rango del marcador eliminará el marcador Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Entonces 'necesitamos comprobar si el marcador llamado "easyexcel_net_01" existe en activo doc 'Identificar el rango de marcadores actual e insertar texto Establecer oRangeBKM = ActiveDocument.Bookmarks ("easyexcel_net_01"). Rango oRangeBKM.Text = "easyexcel.net"' Hacer de nuevo el marcador ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRangeBKM End If End If

Esta es una función de modificación de marcador:

Sub UpdateBookmarkContent (strBookMarkName As String, strNewText As String) Procedimiento '"usable' para agregar Dim oRangeBKM como rango Si ActiveDocument.Bookmarks.Exists (strBookMarkName) Entonces 'necesitamos verificar si el marcador llamado" easyexcel_net_01 "existe en el documento activo' Identificar Rango de marcador actual e insertar texto Establecer oRangeBKM = ActiveDocument.Bookmarks (strBookMarkName) .Range oRangeBKM.Text = strNewText 'Hacer de nuevo el marcador ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub

Puede llamar a la función agregando el nombre del marcador y el nuevo texto como argumentos:

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