[gelöst] URL per CSV importiert - soll in anklickbare URL umgewandelt werden
Verfasst: So 25. Okt 2020, 10:11
Hallo,
mir liegt ein csv-import in Libre office mit vielen hundert Hyperlinks vor, die natürlich nicht anklickbar sind. Ich habe diese jetzt in ".ods" abgespeichert. Die Links sind noch nicht anklickbar, da ich sie nicht händisch eingegeben habe.
Gibt es eine automatische Möglichkeit, den reinen Text in einen anklickbaren Text umzuwandeln.
Beispiel:
www. hamburg.de (die Lücke nach "www." habe ich nur zur Problem-Darstellung eingefügt)
www. berlin.de
soll anklickbar sein
www.hamburg.de
www.berlin.de
Ich kenne mich mit Makros nicht aus. Habe aber dieses Makro zu OpenOffice gefunden und gehofft, dass es in Libre funktioniert:
Sub text_in_link()
auswahl = thisComponent.getCurrentSelection()
If auswahl.supportsService("com.sun.star.sheet.SheetCellRange") then
With auswahl.getRangeAddress
For i = .StartColumn To .EndColumn
For j = .StartRow To .EndRow
k = ThisComponent.createInstance("com.sun.star.text.TextField.URL")
zelle = ThisComponent.Sheets(.Sheet).getCellByPosition(i,j)
k.Representation = zelle.String
k.URL = ConvertToURL(zelle.String)
zelle.setString("")
txt = zelle.getText()
txt.insertTextContent(txt.createTextCursor(), k, False)
Next j
Next i
End With
Else
Msgbox "Nur einen geschlossenen Zellbereich markieren und Makro neu starten"
End If
End Sub
Nach markieren der Spalte und Ausführen des Makros (hoffentlich richtig gemacht) sind die URL's jetzt blau hinterlegt, aber immer noch nicht anklickbar.
Ein Tipp würde mir sehr helfen. Danke.
mir liegt ein csv-import in Libre office mit vielen hundert Hyperlinks vor, die natürlich nicht anklickbar sind. Ich habe diese jetzt in ".ods" abgespeichert. Die Links sind noch nicht anklickbar, da ich sie nicht händisch eingegeben habe.
Gibt es eine automatische Möglichkeit, den reinen Text in einen anklickbaren Text umzuwandeln.
Beispiel:
www. hamburg.de (die Lücke nach "www." habe ich nur zur Problem-Darstellung eingefügt)
www. berlin.de
soll anklickbar sein
www.hamburg.de
www.berlin.de
Ich kenne mich mit Makros nicht aus. Habe aber dieses Makro zu OpenOffice gefunden und gehofft, dass es in Libre funktioniert:
Sub text_in_link()
auswahl = thisComponent.getCurrentSelection()
If auswahl.supportsService("com.sun.star.sheet.SheetCellRange") then
With auswahl.getRangeAddress
For i = .StartColumn To .EndColumn
For j = .StartRow To .EndRow
k = ThisComponent.createInstance("com.sun.star.text.TextField.URL")
zelle = ThisComponent.Sheets(.Sheet).getCellByPosition(i,j)
k.Representation = zelle.String
k.URL = ConvertToURL(zelle.String)
zelle.setString("")
txt = zelle.getText()
txt.insertTextContent(txt.createTextCursor(), k, False)
Next j
Next i
End With
Else
Msgbox "Nur einen geschlossenen Zellbereich markieren und Makro neu starten"
End If
End Sub
Nach markieren der Spalte und Ausführen des Makros (hoffentlich richtig gemacht) sind die URL's jetzt blau hinterlegt, aber immer noch nicht anklickbar.
Ein Tipp würde mir sehr helfen. Danke.