Code: Alles auswählen
Sub Main
Dim args(0) As New com.sun.star.beans.PropertyValue
args(0).Name = "UpdateDocMode"
args(0).Value = 3
folder = "D:\abc\"
FileName = Dir(folder & "*.odt")
While len(FileName) > 0
sURL = ConvertToURL(folder & FileName)
Msgbox sURL
akt_doc = StarDesktop.loadComponentFromUrl(sURL, "_blank", 0, args())
akt_doc.Store()
akt_doc.Close(true)
FileName = Dir()
Wend
End Sub
Stephan