Marcadores do Word - Macros VBA para adicionar, excluir, ir para, modificar

Adicionar favorito

Esta macro do Word adicionará um favorito:

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

Excluir favorito

Esta macro VBA excluirá um favorito:

Sub DeleteBookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Então, precisamos verificar se o marcador chamado "easyexcel_net_01" existe no documento ativo ActiveDocument.Bookmarks (Índice: = "easyexcel_net_01"). Excluir End If End Sub

Ir para o favorito

Esta macro simples irá para um favorito:

Sub GoToBookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Então, 'precisamos verificar se o marcador chamado "easyexcel_net_01" existe no documento ativo Selection.GoTo What: = wdGoToBookmark, Name: = "easyexcel_net_01" End If End Sub

Modificar favorito

Esta macro modificará o conteúdo de um favorito:

Sub ModifyBookmarkContent () 'alterar o conteúdo do favorito' mais complicado, porque alterar o conteúdo do intervalo do favorito excluirá o favorito Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Então 'precisamos verificar se o favorito chamado "easyexcel_net_01" existe no ativo doc 'Identifique o intervalo de favoritos atual e insira o texto Set oRangeBKM = ActiveDocument.Bookmarks ("easyexcel_net_01"). Range oRangeBKM.Text = "easyexcel.net"' Faça novamente o favorito ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRangeBKM End If End Sub

Esta é uma função de modificação de favoritos:

Sub UpdateBookmarkContent (strBookMarkName As String, strNewText As String) Procedimento '"utilizável' para adicionar Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists (strBookMarkName) Then 'precisamos verificar se o marcador chamado" easyexcel_net_01 "existe no documento ativo' Identificar intervalo atual do marcador e inserir texto Definir oRangeBKM = ActiveDocument.Bookmarks (strBookMarkName) .Range oRangeBKM.Text = strNewText 'Criar novamente o marcador ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub

Você pode chamar a função adicionando o nome do favorito e o novo texto como argumentos:

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