Aufgezeichneter Code: Textmarke erstellen

Hier sehen Sie den Code, der bei der Erstellung einer Textmarke von Word erzeugt wird. Bei der Aufzeichnung macht Word keinen Unterschied, ob es sich um eine einfache oder eine geschlossenen Textmarke handelt.

Der einzige Unterschied ist die Markierung im Dokument, bei einer Markierung wird eine geschlossene Textmarke erstellt.

001
002
003
004
005
006
007
008
009
010
011
012

Sub TM_erstellen()
'
' TM_erstellen Makro
' Makro aufgezeichnet am xx.xx.xxxx von www.vba-wordwelt.de
'
   With ActiveDocument.Bookmarks
      .Add Range:=Selection.Range, Name:="TM_Nachname"
      .DefaultSorting = wdSortByName
      .ShowHidden = False
   End With
End Sub

Es wird eine Textmarke mit dem Namen TM_Nachname an der Stelle erzeugt, an der die Einfügemarke steht. Haben Sie vor der Aufzeichnung ein Wort markiert, wird eine geschlossenen Textmarke erstellt.

In Zeile 8 finden Sie den Eintrag DefaultSorting. Das ist die Sortierung im Dialogfenster Einfügen | Textmarke in Word. Wenn die Sortierung nach Namen ausgewählt wurde, sehen Sie den angezeigten Parameter. Für die Sortierung nach Ort im Dokument wird der Parameter wdSortByLocation erzeugt.

Der Eintrag ShowHidden gibt an, ob die Textmarken ausgeblendet werden oder nicht. Hierbei handelt es sich um eine Einstellung in den Optionen (Register Ansicht) von Word. Diese Einstellung ist Dokumentübergreifend und kann nicht für das jeweilige Dokument gespeichert werden.

Diese Einstellungen haben keine Auswirkung auf die Stelle im Dokument oder die Textmarke selbst.

001
002
003
004
005
006
007
008
009
010
011
012

Sub TM_erstellen()
'
' TM_erstellen Makro
' Makro aufgezeichnet am xx.xx.xxxx von www.vba-wordwelt.de
'
   ActiveDocument.Bookmarks.Add Name:="TM_Nachname", Range:=Selection.Range

    'alternative Zeile
   ActiveDocument.Bookmarks.Add "TM_Nachname", Selection.Range

End Sub

Hier sehen Sie jetzt wieder den Code, den Sie mindestens einsetzen müssen. Dabei ist das Selection.Range - also das Range selbst - nicht unbedingt notwendig und kann auch noch weggelassen werden.

zurück zur Übersicht Textmarken