Sprungziel automatisch in Text umwandeln

[mmoe]

Hallo,
habe folgende Frage: Ich erstelle wöchtentlich eine Meldungsübersicht aus einer eigenen Sammlung. Im Writer sieht das so aus: Ein Absatz Text, der mit "Lesen Sie hier mehr >" endet. Dahinter steckt der jeweilige Link auf das Original File. Bisher habe ich über Berarbeiten>Hyperlink jede einzelne händisch Sprungadresse kopiert und händisch in die Zeile "Text" eingefügt und auf "Übernehmen" geklickt. Das ist bei mehr als 100 Einträgen etwas mühsam

Gibt es vielleicht eine Möglichkeit, dies auf einmal über den gesamten Text zu machen?

Danke für eure Hilfe
MM

[clag]

Hallo mmoe,

das kann man nur mit einem Makro in einem Rutsch erreichen
guckst du hier

URL_zu_Text.odt

(15.41 KiB) 217-mal heruntergeladen

wenn deine Angaben stimmen solltest du das Makro direkt für deine Übersicht anwenden können.

viel Erfolg

[mmoe]

Guten Abend, clag,

vielen Dank für Deine Nachricht und für das Makro. Das ist genau das, was ich mir gewünscht habe! Kleine Einschränkung: muß mich noch auf Fehlersuche begeben, da mein Writer das Makro nicht öffnen will. Habe java 64bit installiert, es kommt trotzdem die Fehlermeldung http://moessmer.at/temp/Java-Fehlermeldung.jpg

Nochmals danke und liebe Grüße
mmoe

[clag]

Hallo mmoe,

lies dir das hier mal durch besonders den letzten Beitrag

[mmoe]

Hallo Clag, hallo Gast,

danke für eure Mails und den Hinweis. Meine Version 4.1.2 vom 21.10.2015, Rev. 1709696 ist unter unter Programme (x86) installiert, das heißt, ich werde in den nächsten Tagen neu installieren. Dann sollte dieser Fehler ja auch behoben sein.

Liebe Grüße - melde mich, wenn alles klappt, wenn nicht, auch
mmoe

[clag]

Hallo mmoe,

ich hatte deine Anfrage glaube ich anfänglich falsch verstanden, mir ist im nachhinein aufgegangen
du möchtest die Funktion der Hyperlinks erhalten und nur den angezeigten Text ändern.
Dann gehören noch zwei weitere Zeilen in das Makro.

URL_Text_aendern.odt

(16.02 KiB) 149-mal heruntergeladen

hoffe jetzt passt es.

[mmoe]

Hallo Clag,
vielen Dank für Deine Mühe! Bin augenblicklich unter Zeitdruck, werde Dein Makro kommende Woche nach der Neuinstallation von OpenOffice gleich verwenden!

Liebe Grüße
mmoe

[nikki]

Hallo,

werde Dein Makro kommende Woche nach der Neuinstallation von OpenOffice gleich verwenden!

das wird Dir wenig nützen. OpenOffice gibt es nur als 32-bit-Programm. Folge dessen benötigst Du auch JAVA in der 32-bit-Ausführung.

[mmoe]

Hallo, Nikki, entschuldige, habe Deine Antwort übersehen - danke für den Hinweis!

Hallo, Clag,
wie ich Dir schon geschrieben habe, funktioniert Dein Makro perfekt. Nur wenn ich es auf meine Datei anwende, kommt eine Basic-Fehlermeldung. Kannst Du bitte nachsehen, was ich falsch mache?
Habe auch meine Datei angefügt.

Danke und liebe Grüße
MM

Fehlermeldung

URL_zu_Text_Makro.jpg (69.01 KiB) 7158 mal betrachtet

URL_zu_Text_Beispiel_MM.odt

Beispieldatei

(28.35 KiB) 144-mal heruntergeladen

[clag]

Hallo mmoe,

du hast zweimal die Unwahrheit gesagt

erstens ist es kein Text sondern eine Tabelle mit Text Inhalt
zweitens hast du in deinem "hier mehr >" Link Text ein geschütztes Leerzeichen eingebaut

jokeme.png (1.9 KiB) 7144 mal betrachtet

muss/soll das beides so sein oder ist das unbeabsichtigt?

[mmoe]

Hallo Clag,

das tut mir leid - ist Unverständnis, keine Absicht.

Es ist so, daß diese Tabelle (wie ich nun weiß) aus dem IE kommt. Das geschützte Leerzeichen ist notwendig, da ich verhindern will, daß bei einem Zeilenumbruch nur das ">" im Browser alleine in die nächste Zeile rutscht.

Danke für Deine Geduld!
MM

[clag]

Hallo mmoe,

wenn die Tabelle in deinem Text ohne Funktion ist und du sie nicht brauchst, dann wandle die Tabelle doch in Text!?
Dazu setze den cursor in die erste Zeile des Text und dann wähle
Menü > Tabelle > Umwandeln > Tabelle in Text > [x] Tabulator > ok , fertig.
Das Aussehen des Textes sollte sich dabei nicht verändern.

Dann ändere im Makro die Zeile

Code: Alles auswählen

if CheckElement = "hier mehr >" and len(CheckText.HyperLinkURL) >1 then 

in

Code: Alles auswählen

if CheckElement = "hier mehr" & chr(160) & ">" and len(CheckText.HyperLinkURL) >1 then 

danach sollte das Makro laufen.

Brauchst du die Tabelle im Text, muß ich erst noch lernen/ verstehen wie ich den Hyperlink in einer TextTabelle findet,
dauert dann also noch ein bisserl oder jemand anders kann vielleicht mit dem Wissen aushelfen!?

[mmoe]

Hallo Clag,

Du hast mir sehr geholfen - VIELEN DANK, es ist genau das, was ich mit erhofft habe. Du hast mir für die nächsten Jahre sehr viel Zeit erspart damit!

Liebe Grüße aus Wien
mmoe

[clag]

Hallo mmoe,

habe noch etwas weiter an dem Makro gestrickt und dafür selbst Hilfe beansprucht.
Aber nun werden die Hyperlinks sowohl in Tabellen als auch im Fließtext gefunden.
Guckst und probierst du hier

URL_zu_Text_Beispiel_MM_r3.odt

(19.11 KiB) 142-mal heruntergeladen

viel Erfolg und Spaß damit

[mmoe]

Hallo Clag,

vielen Dank für Deine Mühe - jetzt ist es absolut perfekt!

Liebe Grüße
mmoe