Dateiverlinkungen aus Tabelle in Writer übertragen.
Verfasst: Mo 25. Jun 2018, 11:21
Jetzt versuche ich gerade Links, die ich in einer Spalte gespeichert habe, in mehere Dokumente als Hyperlink einzufügen.
Doch leider wird es im Dokument nicht als Hyperlink übernommen.
In Calc habe ich die Hyperlinks mit der HYPERLINK- Formel erstellt.
Die Ausgabe in dem Writer Dokument sieht dann folgendermaßen aus
file:///C:/Users/Test%20Test/Desktop/Ordner1/Ordner2/Mustervorlage/tm.pdf
Ich hab mir den aufbau beim manuellen erstellen eines hyperlinks abgeschaut und dann versucht das Ganze nachzubauen.
Reload des Dokumentes hat leider auch nicht geklappt und ich bin mir auch sicher das es eine angenehmere und saubere lösung existiert.
Doch leider wird es im Dokument nicht als Hyperlink übernommen.
In Calc habe ich die Hyperlinks mit der HYPERLINK- Formel erstellt.
Code: Alles auswählen
Public Const personenSheet= 1Code: Alles auswählen
pfad = ConvertFromURL(thisComponent.sheets(menuSheet).getCellRangeByName(tm).String)
filename = FileNameoutofPath(pfad)
file_n = GetFileNameWithoutExtension(filename) ' ? dito
neueFile = file_n & "." & GetFileNameExtension(filename)
thisComponent.sheets(personenSheet).getCellRangeByName("c" + zeile).formulaLocal = _
"=HYPERLINK("+chr(34)+ConvertFromURL(pfad)+chr(34)+ ";"+chr(34)+ neueFile +chr(34)+ ")"Code: Alles auswählen
Table2=Tables.getbyName("Tabelle4")
'file:///Dateipfad.pdf
writerfile = Convertfromurl(thisComponent.sheets(personenSheet).getCellRangeByName("E" & zeile).string
writerFile =Replace(writerFile, "\", "/")
writerfile =Repalce(writerfile, " ", "%20")
Table2.getCellbyPosition(1,5).String ="file:///" & writerfile
file:///C:/Users/Test%20Test/Desktop/Ordner1/Ordner2/Mustervorlage/tm.pdf
Ich hab mir den aufbau beim manuellen erstellen eines hyperlinks abgeschaut und dann versucht das Ganze nachzubauen.
Reload des Dokumentes hat leider auch nicht geklappt und ich bin mir auch sicher das es eine angenehmere und saubere lösung existiert.