OpenOffice.info

Sub Main
x = InputBox("Welche Textmarke suchen Sie?") 
If ThisComponent.Bookmarks.hasByName(x)= True Then
		Msgbox "Textmarke vorhanden"
	Else
		Msgbox "Textmarke nicht vorhanden"
End If
End Sub

Du kannst die Existenz der Textmarke im Dokument mittels .HasByName() abfragen, z.B.:

[code]Sub Main
x = InputBox("Welche Textmarke suchen Sie?")
If ThisComponent.Bookmarks.hasByName(x)= True Then
Msgbox "Textmarke vorhanden"
Else
Msgbox "Textmarke nicht vorhanden"
End If
End Sub[/code]



Gruß
Stephan

Gibt es eine einfache Möglichkeit, die Existenz einer Textmarke zu prüfen? Ohne die Namen aller Textmarken zu prüfen?

Lothar Geyer