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= 1
Code: 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
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.
Und kann man bei einer Auswahlliste, die werte aus einem anderen sheet entnimmt, auch als hyperlink übertragen ?
Ich hab in dem anderen sheet eine spalte mit hyperlinks (auch mit der HYPERLINK formel erstellt) und diese würde gerne als auswahlliste (gültigkeit) übertragen.