von pkuenemann » Mo, 13.05.2019 13:10
Hallo Faol,
sorry, ich hatte nur einen Codeausschnitt eingefügt. Die Instanzierung der benötigten Objekte findet natürlich statt:
Code: Alles auswählen
Dim objServiceManager As Object
Dim objDesktop As Object
Dim objCoreReflection As Object
Dim objDocument As Object
Dim outDoc As String
Dim args()
outDoc = "E:\Beispiel\beispiel-tabelle.ods"
Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")
Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
Set objDocument = objDesktop.loadComponentFromURL(ConvertToURL(outDoc), "_blank", 0, args)
ReplaceCalcFields
If Not objDocument Is Nothing Then Call objDocument.Close(True)
Set objDocument = Nothing
If Not objCoreReflection Is Nothing Then objCoreReflection.dispose
If Not objDesktop Is Nothing Then objDesktop.Terminate
Set objCoreReflection = Nothing
Set objDesktop = Nothing
Set objServiceManager = Nothing
Zu Deinen Ergänzungen: was bedeutet die Zeile:
Ansonsten habe ich keine unterschiedlichen Kopfzeilen für rechts und links eingestellt sondern nur eine für alle Seiten (Bei Format-Seite ist die Option "Beide Seiten Gleich" aktiviert). Wie lauten dann der Zugriff auf den Header-Content, 'PageHeaderContent'?
LG,
Lemmi.
Hallo Faol,
sorry, ich hatte nur einen Codeausschnitt eingefügt. Die Instanzierung der benötigten Objekte findet natürlich statt:
[code]
Dim objServiceManager As Object
Dim objDesktop As Object
Dim objCoreReflection As Object
Dim objDocument As Object
Dim outDoc As String
Dim args()
outDoc = "E:\Beispiel\beispiel-tabelle.ods"
Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")
Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
Set objDocument = objDesktop.loadComponentFromURL(ConvertToURL(outDoc), "_blank", 0, args)
ReplaceCalcFields
If Not objDocument Is Nothing Then Call objDocument.Close(True)
Set objDocument = Nothing
If Not objCoreReflection Is Nothing Then objCoreReflection.dispose
If Not objDesktop Is Nothing Then objDesktop.Terminate
Set objCoreReflection = Nothing
Set objDesktop = Nothing
Set objServiceManager = Nothing
[/code]
Zu Deinen Ergänzungen: was bedeutet die Zeile:
[code] mri Defpage
[/code]
Ansonsten habe ich keine unterschiedlichen Kopfzeilen für rechts und links eingestellt sondern nur eine für alle Seiten (Bei Format-Seite ist die Option "Beide Seiten Gleich" aktiviert). Wie lauten dann der Zugriff auf den Header-Content, 'PageHeaderContent'?
LG,
Lemmi.