LibreOffice-Forum

Code: Alles auswählen

Sub UpdateAll
    Load_Update_Save("Zieldatei1.ods")
    Load_Update_Save("Zieldatei2.ods")
    Load_Update_Save("Zieldatei3.ods")
    Load_Update_Save("Zieldatei4.ods")
    Load_Update_Save("Zieldatei5.ods")
    print "fertig"
end sub

Sub Load_Update_Save(Dateiname)
    Dim sVorlage as String
    sVorlage = ConverttoUrl("/home/USER/Dokumente/Linuxfreund/"+Dateiname)
    Dim Args(1) As New "com.sun.star.beans.PropertyValue"
    Args(0).Name = "UpdateDocMode"
    Args(0).Value = com.sun.star.document.UpdateDocMode.QUIET_UPDATE
    Args(1).Name = "Hidden"
    Args(1).Value = true
    oDoc = StarDesktop.loadComponentFromUrl(sVorlage, "_blank", 0, Args())
    for i = 0 to odoc.AreaLinks.Count - 1
        odoc.AreaLinks(i).refresh
    next i
    oDoc.store
    oDoc.close - 1
End Sub