Classe Bookmarks (Word VBA)
Uma coleção de objetos Bookmark que representa os indicadores na seleção, intervalo ou documento especificado. Para usar uma variável de classe Bookmarks, ela primeiro precisa ser instanciada por exemplo
Dim bkms as Bookmarks
Set bkms = ActiveDocument.Bookmarks
For Each
Aqui está um exemplo de processamento dos itens Bookmarks em uma coleção.
Dim bkm As Bookmark
For Each bkm In ActiveDocument.Bookmarks
Next bkm
Add
Retorna um objeto Bookmark que representa um indicador adicionado a um intervalo.
Sub BMark()
' Select some text in the active document prior
' to execution.
ActiveDocument.Bookmarks.Add _
Name:="myplace", Range:=Selection.Range
End Sub
Arguments
O seguinte argumento é necessário
Name (String) - O nome do indicador. O nome não pode ser mais de 40 caracteres ou incluir mais de uma palavra.
Optional arguments
The following argument is optional
Range (Range) - O intervalo de texto marcado pelo indicador. Um indicador pode ser definido com um intervalo recolhido (o ponto de inserção).
Count
Retorna o número de itens na coleção Bookmarks. Somente leitura Long.
Dim lngCount As Long
lngCount = ActiveDocument.Bookmarks.Count
DefaultSorting
Retorna ou define a opção de classificação para nomes de indicadores exibidos na caixa de diálogo Indicador menu Inserir. Leitura/gravação WdBookmarkSortBy. Os valores de retorno possíveis são wdSortByLocation - Classificada por localização no documento, wdSortByName - Classificada por nome do indicador.
Essa propriedade não afeta a ordem dos objetos Bookmark na coleção bookmarks .
ActiveDocument.Bookmarks.DefaultSorting = wdSortByLocation
Dialogs(wdDialogInsertBookmark).Show
Exists
Determina se o indicador especificado existe. Retorna true se o indicador existir.
Exists (Name)
Name: Um nome de indicador do que não pode incluir mais de 40 caracteres ou mais de uma palavra.
If ActiveDocument.Bookmarks.Exists("start") = True Then
ActiveDocument.Bookmarks("start").Delete
End If
Item
Retorna um objeto Bookmark individual em uma coleção.
Item (Index)
Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal ou uma cadeia de caracteres que representa o nome do objeto individual.
Sub BookmarkItem()
If ActiveDocument.Bookmarks.Exists("temp") = True Then
ActiveDocument.Bookmarks.Item("temp").Select
End If
End Sub
ShowHidden
True se indicadores ocultos estão incluídos na coleção Bookmarks. Boolean de leitura/gravação.
A propriedade ShowHidden também controla se os indicadores ocultos serão listados na caixa de diálogo Indicador (menu Inserir). Os indicadores ocultos são automaticamente inseridos quando referências cruzadas são inseridas no documento.
ActiveDocument.Bookmarks.ShowHidden = True
Dialogs(wdDialogInsertBookmark).Show