Hallo Vinzenz,
Das ist der relevante teil des Makros:
rem ----------------------------------------------------------------------
dim args2(2) as new com.sun.star.beans.PropertyValue
args2(0).Name = "URL"
args2(0).Value = "file:///C:/Dokumente%20und%20Einstellungen/Besitzer/Desktop/Convert/ABS_Bew_ALDI.doc"
args2(1).Name = "FilterName"
args2(1).Value = "MS Word 97"
args2(2).Name = "SelectionOnly"
args2(2).Value = true
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args2())
Kann man das so wie früher machen:
rem ----------------------------------------------------------------------
rem --- Schleifenanfang ---
for x=1 to 90
dim args2(2) as new com.sun.star.beans.PropertyValue
args2(0).Name = "URL"
args2(0).Value =
rem --- hier beliebige datei durch stern auswählen ---
"file:///C:/Dokumente%20und%20Einstellungen/Besitzer/Desktop/Convert/*.odt"
args2(1).Name = "FilterName"
args2(1).Value = "MS Word 97"
args2(2).Name = "SelectionOnly"
args2(2).Value = true
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args2())
rem --- Schleifenende ---
next x
Wie sehen die Chancen aus, dass das funktioniert?
Grüsse gary