50 Textmarken gesetzt.
Wie kann ich das Dokument so drucken, dass die Textmarken angezeigt werden.
Es soll der ganze Name der Textmarken angezeigt werden ( nicht nur die "I" als Symbol für Textmarken).
Danke für einen Hinweis
Salü dreho
Es ist schwierig, ein Makro für Textmarken zu schreiben, wenn man nicht genau weiss, wie Du sie jeweils in den Text einfügst/eingefügt hast. Ich weiss auch nicht, wo und wie Du die Textmarken ausgeben willst. Schliesslich ist es schwierig, die Anzeige der Textmarken nur für den Druck zu erstellen.
Ich gehe mal von folgendem aus:
a) Zum Setzen von Textmarken werden ganze Wörter oder Sätze markiert.
b) Die Textmarken werden folgendermassen ausgegeben: Der Name der jeweiligen Textmarke erscheint in eckigen Klammern hinter dem jeweiligen Wort oder Satz.
c) Die Namen der Textmarken werden im Dokument angezeigt, ganz unabhängig vom Drucken.
Das erreicht man mit folgendem Makro:
Code:
Sub TextmarkenAnzeigen()
bmc = ActiveDocument.Bookmarks.Count
For i = 1 To bmc
ActiveDocument.Bookmarks(i).Select
bmn$ = ActiveDocument.Bookmarks(i).Name
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=" [" & bmn$ & "] "
Next i
Selection.HomeKey Unit:=wdStory
End Sub
Vorsicht: Das Makro darf in einem Dokument nur einmal gestartet werden. Also unbedingt vorher speichern und/oder mit Kopien arbeiten.
Ich bin gespannt, ob Dir das hilft!
Viele Grüsse Niclaus