Dateiverlinkungen aus Tabelle in Writer übertragen.

[schwammer]

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.

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.