Zakładki Word - makra VBA do dodawania, usuwania, przechodzenia, modyfikowania

Dodać zakładkę

To makro Worda doda zakładkę:

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

Usuń zakładkę

To makro VBA usunie zakładkę:

Sub DeleteBookmark() If ActiveDocument.Bookmarks.Exists("easyexcel_net_01") Następnie „musimy sprawdzić, czy zakładka o nazwie „easyexcel_net_01” istnieje w aktywnym dokumencie ActiveDocument.Bookmarks(Index:="easyexcel_net_01").Delete End If End Sub

Przejdź do zakładki

To proste makro przejdzie do zakładki:

Sub GoToBookmark() If ActiveDocument.Bookmarks.Exists("easyexcel_net_01") Następnie „musimy sprawdzić, czy zakładka o nazwie „easyexcel_net_01” istnieje w aktywnym dokumencie Selection.GoTo What:=wdGoToBookmark, Name:="easyexcel_net_01" End If End Sub

Zmodyfikuj zakładkę

To makro zmodyfikuje zawartość zakładki:

Sub ModifyBookmarkContent() ' zmiana zawartości zakładki ' bardziej skomplikowane, ponieważ zmiana zawartości zakresu zakładek usunie zakładkę Dim lubRangeBKM As Range If ActiveDocument.Bookmarks.Exists("easyexcel_net_01") Następnie 'musimy sprawdzić, czy zakładka o nazwie "easyexcel_net_01" istnieje w active doc 'Zidentyfikuj bieżący zakres zakładek i wstaw tekst Set oRangeBKM = ActiveDocument.Bookmarks("easyexcel_net_01").Range oRangeBKM.Text = "easyexcel.net" 'Utwórz ponownie zakładkę ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRangeBKM End If Sub

To jest funkcja modyfikacji zakładki:

Sub UpdateBookmarkContent(strBookMarkName As String, strNewText As String) ' "użyteczna" procedura dodawania w Dim lubRangeBKM As Range If ActiveDocument.Bookmarks.Exists(strBookMarkName) Następnie 'musimy sprawdzić, czy zakładka o nazwie "easyexcel_net_01" istnieje w aktywnym dokumencie 'Identify bieżący zakres zakładek i wstaw tekst Set oRangeBKM = ActiveDocument.Bookmarks(strBookMarkName).Range oRangeBKM.Text = strNewText 'Utwórz ponownie zakładkę ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub

Możesz wywołać funkcję, dodając nazwę zakładki i nowy tekst jako argumenty:

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