Wie Liste in Links wandeln (autom. Erkennung versagt)

[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

[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

[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

[karolus]

Hallo

Natürlich tut sich was - markiere den Bereich K2:K54 und starte das Makro.

Karo

[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

[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

[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 das der Fehler sein?

Nein!

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

[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

[karolus]

Hallo

Ich habs! - du musst trotzdem noch →Extras→Autokorrektur-optionen→Optionen→[x]Url erkennen einschalten

Karo

[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