Text an Lesezeichen überschreiben
Verfasst: Mi, 04.01.2006 10:27
Hallo
ich habe ein Makro das text an einem Lesezeichen einfügt. Wenn ich das Makro nochmal ausführe wird der neue Text für den alten gesetzt. Ich will ab er das dieser überschrieben wird.
hier mein Code
dim oDoc as Object
dim obookmarks as Object
dim obookmark as Object
dim oCursor as Object
oDoc=thisComponent
oBookmarks = oDoc.getBookmarks()
oBookmark = oBookmarks.getByName("Asp")
oCursor = oDoc.Text.createTextCursorByRange(oBookmark.Anchor)
oCursor.string = "Hans"
#####
ich habe ein Makro das text an einem Lesezeichen einfügt. Wenn ich das Makro nochmal ausführe wird der neue Text für den alten gesetzt. Ich will ab er das dieser überschrieben wird.
hier mein Code
dim oDoc as Object
dim obookmarks as Object
dim obookmark as Object
dim oCursor as Object
oDoc=thisComponent
oBookmarks = oDoc.getBookmarks()
oBookmark = oBookmarks.getByName("Asp")
oCursor = oDoc.Text.createTextCursorByRange(oBookmark.Anchor)
oCursor.string = "Hans"
#####