Inhaltsverzeichnis
Lesezeichen hinzufügen
Dieses Word-Makro fügt ein Lesezeichen hinzu:
Sub AddBookmark() ActiveDocument.Bookmarks.Add "easyexcel_net_01" End Sub
Lesezeichen löschen
Dieses VBA-Makro löscht ein Lesezeichen:
Sub DeleteBookmark() If ActiveDocument.Bookmarks.Exists("easyexcel_net_01") Then 'wir müssen prüfen, ob ein Lesezeichen namens "easyexcel_net_01" im aktiven Dokument ActiveDocument.Bookmarks(Index:="easyexcel_net_01") vorhanden ist.Delete End If End Sub
Gehe zu Lesezeichen
Dieses einfache Makro führt zu einem Lesezeichen:
Sub GoToBookmark() If ActiveDocument.Bookmarks.Exists("easyexcel_net_01") Then 'wir müssen überprüfen, ob ein Lesezeichen namens "easyexcel_net_01" im aktiven Dokument vorhanden ist Selection.GoTo What:=wdGoToBookmark, Name:="easyexcel_net_01" End If End Sub
Lesezeichen ändern
Dieses Makro ändert den Inhalt eines Lesezeichens:
Sub ModifyBookmarkContent() 'Lesezeicheninhalt ändern' komplizierter, da das Ändern des Lesezeichenbereichsinhalts das Lesezeichen löscht Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists("easyexcel_net_01") Dann 'wir müssen überprüfen, ob das Lesezeichen mit dem Namen "easyexcel_net_01" in aktiv vorhanden ist doc 'Identifiziere den aktuellen Lesezeichenbereich und füge Text ein Set oRangeBKM = ActiveDocument.Bookmarks("easyexcel_net_01").Range oRangeBKM.Text = "easyexcel.net" 'Erstelle das Lesezeichen ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRangeBKM End If End Sub
Dies ist eine Funktion zum Ändern von Lesezeichen:
Sub UpdateBookmarkContent(strBookMarkName As String, strNewText As String) ' "usable" Prozedur zum Hinzufügen von Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists(strBookMarkName) Then 'müssen wir überprüfen, ob ein Lesezeichen namens "easyexcel_net_01" im aktiven Dokument vorhanden ist 'Identify aktueller Lesezeichenbereich und Text einfügen Set oRangeBKM = ActiveDocument.Bookmarks(strBookMarkName).Range oRangeBKM.Text = strNewText 'Erneut das Lesezeichen ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub
Sie können die Funktion aufrufen, indem Sie den Lesezeichennamen und den neuen Text als Argumente hinzufügen:
Sub CallBookmarkFunction() Call UpdateBookmarkContent("easyexcel_net_01", "easyexcel.net") End Sub