OpenOffice.info

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

Code: Alles auswählen

    mri Defpage

Code: Alles auswählen

Private Sub ReplaceCalcFields()
On Error GoTo Exit_ReplaceCalcFields

    Dim StyleFamilies As Object
    Dim PageStyles As Object
    Dim DefPage As Object
    Dim HText As Object
    Dim txt As String
    
    Set StyleFamilies = objDocument.StyleFamilies
    Set PageStyles = StyleFamilies.getByName("PageStyles")
    Set DefPage = PageStyles.getByName("Default")
    If DefPage.HeaderIsOn Then
        Set HText = DefPage.HeaderText.GetString()
        'txt = DefPage.HeaderText.GetString()
    End If

Exit_ReplaceCalcFields:
    On Error Resume Next
    Set HText = Nothing
    Set DefPage = Nothing
    Set PageStyles = Nothing
    Set StyleFamilies = Nothing
    Exit Sub

End Sub