Re: Makro oder Skript für viele Dokumente ->neue formatvorlage
Verfasst: Do, 13.06.2019 07:45
so sollte das gehen (ohne Garantie), vorher bei folder = "D:\abc\" den richtigen Ordner eintragen:
Gruß
Stephan
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