Writer letztes wort einer Zeile markieren

[chemnitzer]

Hallo
ich bin auf der Suche wie ich im Makro das letzte Wort einer Zeile markieren kann um dort einen Hyperlink auf eine Grafik/Bild im Dokument
einzufügen.
z.B.: Mausefalle [TAB] 512
- Mausefalle ist der Artikeltext
- "512" ist die Seite und auf "512" soll der Link auf Sprungziel: Bild1|graphic; URL: #Bild1|graphic; text: 512; Name: Bild1 verweisen, das Bild liegt dann auf der Seite 512

Kann mir da bitte jemand einen Tip geben. Die Bilder habe ich schon über eine Listendatei einfügen können. Jetzt möchte ich vom Inhaltsverzeichnis einen Link zu der entsprechenden Seite erstellen lassen, wobei der Bildname das Ziel ist.

Vielen Dank schonmal.
Gruß

[musikai]

Hi,

so könnte das gehen:

Code: Alles auswählen

sub getlastword
oDoc = thisComponent
oViewcursor = oDoc.CurrentController.getViewcursor()
TextString = oViewcursor.getstring
Stringarray() = Split(TextString, Chr(9))   'split spaltet den Text in einzelne Elemente, als Trenner ist tab gewählt: Chr(9) 
Lastword = Stringarray(UBound(Stringarray)) 'das letzte wort 
msgbox Lastword
end sub

edit: ok, das wird Dir doch nicht viel helfen. Du willst ja den Text ersetzen. Kapitel "Suchen und ersetzen" in http://www.pitonyak.org/OOME_3_0.pdf