Am 14.04.2011 09:32, schrieb Peter Eberlein:
Hallo Pit,
...
Als Workaround hier eine kleines Makro, welches die Einträge löscht.
Danach das Stichwortverzeichnis nochmal zum Bearbeiten aufrufen und einfach mit
OK bestätigen, das File braucht man nicht nochmal zuweisen.
Das Verzeichnis sollte dann den Stand des Konkordanz-Files haben.

Sub Konkordanz
indexes = ThisComponent.DocumentIndexes
for i=0 to indexes.count-1
index = indexes(i)
if index.supportsService("com.sun.star.text.DocumentIndex") then
marks = index.DocumentIndexMarks
for j=lBound(marks()) to uBound(marks())
marks(j).dispose()
next
index.update
End If
next
End Sub

Gruß Peter

Danke :-)

Habe es unter Konkordanzdatei gleich im Wiki mißbraucht.

Gruß

Pit Z.

--
-----------------------------------------------------------------
To unsubscribe send email to [email protected]
For additional commands send email to [email protected]
with Subject: help

Antwort per Email an