Word Textmarke identifizieren

[Thomas Wiedmann]

Hallo,

man kann ja in Word Textmarken insofern sichtbar machen, da� die die Stelle
einer Textmarke entsprechend gekennzeichnet wird.
Wie kann man dabei herausfinden, welche Textmarke dieser Stelle nun
zugeordnet ist, also die Textmarke identifzieren?
Ich verwende Word 2000.

Thomas Wiedmann

[Bernhard Sander]

Hallo Thomas,

setze den Cursor an die betreffende Stelle und w�hle den Befehl "Einf�gen /
Textmarke". Word w�hlt in der Liste der Textmarkennamen automatisch die
Textmarke, auf der der Cursor grade steht. Nur wenn der Cursor nicht auf einer
Textmarke steht wird die erste Textmarke der Liste vorgew�hlt. Falls die
Cursorstelle zu mehreren Textmarken geh�rt, wird die alfabetisch erste der
m�glichen vorgew�hlt.

Gru�
Bernhard Sander

[Christian Freßdorf]

Hallo Thomas,

> Wie kann man dabei herausfinden, welche Textmarke dieser Stelle nun
> zugeordnet ist, also die Textmarke identifzieren?

folgende Makros erzeugen zu einer Textmarke einen Kommentar mit dem
Textmarkennamen.
Das 2. Makro l�scht die Kommentare wieder

[code]Sub TextmarkeAlsKommentar()
' Erstellt f�r Textmarken Kommentare
' mit dem Textmarkennamen als Kommentarinhalt
Dim objBM As Bookmark
For Each objBM In ActiveDocument.Bookmarks
If ActiveDocument.Bookmarks.Exists(objBM.Name) Then
ActiveDocument.Comments.Add objBM.Range, objBM.Name
End If
Next objBM
End Sub

Sub LoescheTextmarkeAlsKommentar()
' L�scht die Kommentare bei Textmarken
' wenn Kommentarinhalt und Textmarkenname identisch
Dim objCom As Comment
Dim objBM As Bookmark
For Each objCom In ActiveDocument.Comments
If objCom.Scope.Bookmarks.Count > 0 Then
For Each objBM In objCom.Scope.Bookmarks
If objCom.Range.Text = objCom.Scope.Bookmarks(1).Name Then
objCom.Delete
Exit For
End If
Next objBM
End If
Next objCom

End Sub
[/code]

--
Gru� Christian
~~~~~~~~~~~~
Antworten / R�ckmeldungen nur in die NG!
Co-Autor von �Microsoft Word-Programmierung.
Das Handbuch, 3. Auflage - auch f�r Word 2010� (MS Press)