Clase Bookmarks (Word VBA)

Colección de objetos Bookmark que representan los marcadores de la selección, intervalo o documento especificados.

Para usar una variable de clase Bookmarks, primero debe ser instanciado, por ejemplo

Dim bkms as Bookmarks
Set bkms = ActiveDocument.Bookmarks

Los siguientes procedimientos se pueden usar para establecer variables de clase Bookmarks : Document.Bookmarks, Range.Bookmarks y Selection.Bookmarks.

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Bookmarks en una colección.

Dim bkm As Bookmark
For Each bkm In ActiveDocument.Bookmarks
	
Next bkm

Add

Devuelve un objeto Bookmark que representa un marcador agregado a un intervalo.

Add (Name, Range)

Sub BMark() 
 ' Select some text in the active document prior 
 ' to execution. 
 ActiveDocument.Bookmarks.Add _ 
 Name:="myplace", Range:=Selection.Range 
End Sub

Arguments

Un argumento con nombre

Name (String) - El nombre del marcador.

Optional arguments

Los siguientes argumentos son opcionales

Range - Range

Count

Devuelve el número de elementos de la colección Bookmarks.

Dim lngCount As Long
lngCount = ActiveDocument.Bookmarks.Count

DefaultSorting

Devuelve o establece la opción de ordenar de los nombres de los marcadores que se muestran en el cuadro de diálogo Marcador (menú Insertar). Posibles valores de retorno son wdSortByLocation - Se ordenan por su ubicación en el documento, wdSortByName - Se ordenan por los nombres de marcador.

Esta propiedad no afecta al orden de los objetos Bookmark de la colección bookmarks .

ActiveDocument.Bookmarks.DefaultSorting = wdSortByLocation 
Dialogs(wdDialogInsertBookmark).Show

Exists

Determina si existe el marcador especificado.

Exists (Name)

Name: Un nombre de marcador que no puede incluir más de 40 caracteres o más de una palabra.

If ActiveDocument.Bookmarks.Exists("start") = True Then 
 ActiveDocument.Bookmarks("start").Delete 
End If

Item

Devuelve un objeto Bookmark individual de una colección.

Item (Index)

Index: El objeto individual que se va a devolver.

Sub BookmarkItem() 
 If ActiveDocument.Bookmarks.Exists("temp") = True Then 
 ActiveDocument.Bookmarks.Item("temp").Select 
 End If 
End Sub

ShowHidden

True si los marcadores ocultos se incluyen en la colección Bookmarks.

La propiedad ShowHidden también controla si los marcadores ocultos aparecen en el cuadro de diálogo Marcador (menú Insertar).

ActiveDocument.Bookmarks.ShowHidden = True 
Dialogs(wdDialogInsertBookmark).Show