OpenOffice.info

Code: Alles auswählen

Sub Speichern_als_Zellname

oDoc = thisComponent
rem Zugriff auf Tabelle1
otable=oDoc.Texttables.Tabelle1
rem Zugriff auf Zelle A1
ocell=otable.getCellbyName("A1")
rem alternativ geht auch diese Methode:
rem ocell =otable.getCellbyposition(0,0)
rem Zellinhalt auslesen
oString = ocell.String
rem in den Pfad einbauen
datei = "C:/Users/BeFu/Documents/RG/"& oString &".odt"
dateiurl = converttourl(datei)
rem speichern
rem odoc.storeAsurl(dateiurl,Array())'Ursprungsdatei wird umbenannt
odoc.storeTourl(dateiurl,Array())'Ursprungsdatei bleibt erhalten

End Sub

Code: Alles auswählen

Sub Speichern_als_Zellname

Dim datei as String
oDoc = thisComponent
rem Zugriff auf Tabelle1
otable=oDoc.Texttables.Tabelle2
rem Zugriff auf Zelle A1
ocell=otable.getCellbyName("B3")
rem alternativ geht auch diese Methode:
rem ocell =otable.getCellbyposition(0,0)
rem Zellinhalt auslesen
oString = ocell.String
rem in den Pfad einbauen
datei = "file:///P:/Dokumentation/"& oString &".pdf"
rem dateiurl = converttourl(datei)
rem speichern
rem odoc.storeAsurl(dateiurl,Array())'Ursprungsdatei wird umbenannt
rem odoc.storeTourl(dateiurl,Array())'Ursprungsdatei bleibt erhalten
'URL-String für das Speichern der PDF-Datei generieren

'Speicherbefehl PDF-Datei
Dim pdfProperties(1) as new com.sun.star.beans.PropertyValue
pdfProperties(0).Name = "FilterName"
pdfProperties(0).Value = "writer_pdf_Export"
ThisComponent.storeToURL( datei, pdfProperties() )

'Messagebox aufrufen   
msgbox    datei

End Sub