BITTE helfen Sie uns HEUTE mit einer SPENDE
Das LibreOffice Forum braucht jetzt Ihre Hilfe!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Dateiverlinkungen aus Tabelle in Writer übertragen.

Alles zur Programmierung im LibreOffice.
Antworten
schwammer
Beiträge: 5
Registriert: Fr 15. Jun 2018, 10:06

Dateiverlinkungen aus Tabelle in Writer übertragen.

Beitrag von schwammer » 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.

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.

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten