Seite 1 von 2
Wie Liste in Links wandeln (autom. Erkennung versagt)
Verfasst: Mi 11. Jul 2012, 16:40
von sven.fischer.de
Hallo,
ich habe das Internet durchsucht und keine Lösung gefunden für mein Problem:
Wenn ich per copy and paste einen Link in eine Zelle einfüge, dann versagt die automatische Erkennung und Formatierung, damit es zu einem Link wird.
Die Menüfunktion Einfügen->Hyperlink macht das nur Zellweise, oder?
Es gab mal ein uralt Makro, das ich aber nicht zum Laufen bekommen habe. Es sollte einen markierete Bereich erkennen, die Zelle als Hyperlink markieren und zurückschreiben.
Wer kann mir bitte helfen?
Vielen Dank,
Sven
Re: Wie Liste in Links wandeln (autom. Erkennung versagt)
Verfasst: Mi 11. Jul 2012, 18:34
von karolus
Hallo
Folgendes sollte es für einen markierten Zellbereich tun:
Code: Alles auswählen
Sub CellString_to_Hyperlink
doc = thisComponent
osel = doc.Currentselection()
for c = 0 to osel.Columns.Count -1
for r = 0 to osel.Rows.Count -1
cell = osel.getCellByPosition(c,r)
sstring = cell.getString()
if sstring <> "" then
ocur = cell.GetText().createTextCursor()
oLink = Doc.createInstance("com.sun.star.text.TextField.URL")
oLink.URL = sstring
oLink.Representation = sstring
cell.insertTextContent(ocur, oLink, 1)
end if
next
next
End Sub
Wäre trotzdem mal interessant dein "Uralt-makro" zu sehen.
Karo
Re: Wie Liste in Links wandeln (autom. Erkennung versagt)
Verfasst: Do 12. Jul 2012, 11:10
von sven.fischer.de
Hallo Karolus,
leider tut sich da nichts - die Datei habe ich Dir mal geschickt. Danke für Deine Mühe!
Ich werde einen Verbesserungsvorschlag an die LibreOffice Entwickler schicken - das kann natürlich lange dauern...
Gruss,
Sven
Re: Wie Liste in Links wandeln (autom. Erkennung versagt)
Verfasst: Do 12. Jul 2012, 11:19
von karolus
Hallo
Natürlich tut sich was - markiere den Bereich K2:K54 und starte das Makro.
Karo
Re: Wie Liste in Links wandeln (autom. Erkennung versagt)
Verfasst: Do 12. Jul 2012, 11:54
von sven.fischer.de
Hallo Karolus,
in LibreOffice 3.5.4 (Linux) 3.5.2 (Windows) funktioniert das nicht. Ich habe die Makrosicherheit auf niedrig stehen. Da ich allerdings keine Erfahrungen mit Makros habe, kann ds der Fehler sein?
Ich markiere den Bereich -> Extras -> Makros -> Makros ausführen -> wähle "Cell String to Hyperlink" aus -> keine Änderung
Danke und Gruss,
Sven
Re: Wie Liste in Links wandeln (autom. Erkennung versagt)
Verfasst: Do 12. Jul 2012, 12:25
von sven.fischer.de
HI Karolus,
ich habe gerade ein update auf Libreoffice 3.5.5.3 (Windows) durchgeführt - nun geht es! Krass, was soll ich sagen!
Vielen Dank für Deine Hilfe!
Ich habe im Developer Wiki meinen Funktionswusch veröffentlicht.
Gruss,
Sven
Re: Wie Liste in Links wandeln (autom. Erkennung versagt)
Verfasst: Do 12. Jul 2012, 12:40
von karolus
sven.fischer.de hat geschrieben:
in LibreOffice 3.5.4 (Linux) 3.5.2 (Windows) funktioniert das nicht. Ich habe die Makrosicherheit auf niedrig stehen. Da ich allerdings keine Erfahrungen mit Makros habe, kann das der Fehler sein?
Nein!
sven.fischer.de hat geschrieben:Ich markiere den Bereich -> Extras -> Makros -> Makros ausführen -> wähle "Cell String to Hyperlink" aus -> keine Änderung
Entschuldige, das ich frage - du betätigst auch die Schaltfläche 'Ausführen' ?
oder ist die Tabelle geschützt ? (→Extras→Dokument schützen →[
x]Tabelle ?
Karo
Re: Wie Liste in Links wandeln (autom. Erkennung versagt)
Verfasst: Do 12. Jul 2012, 14:45
von sven.fischer.de
Hallo Karo,
wie gesagt in nach dem Update unter Windows auf 3.5.5.3 funktioniert es nun. Unter Linux hat selbiges Update leider nichts gebracht.
Ja, das Makro ist im linken Fenster ausgewählt (ist eh das Einzige) und ich klicke auf ausführen.
Gruss,
Sven
Re: Wie Liste in Links wandeln (autom. Erkennung versagt)
Verfasst: Do 12. Jul 2012, 15:38
von karolus
Hallo
Ich habs! - du musst trotzdem noch →Extras→Autokorrektur-optionen→Optionen→[x]Url erkennen einschalten
Karo
Re: Wie Liste in Links wandeln (autom. Erkennung versagt)
Verfasst: Fr 13. Jul 2012, 11:54
von sven.fischer.de
Hallo Karolus,
danke, denn nun funktioniert es auch unter Linux (wichtig,d a ich damit arbeite und unter Windows spiele).
Meine Veröffentlichung auf der
http://wiki.documentfoundation.org/Deve ... hancements sollte hoffentlich irgendwann dazu führen, das es einfacher geht.
Vielen Dank für Deine großartige Hilfe,
Sven