.odt --> .doc konvertieren

[gary]

Hi Vinzenz,

Habe mal das Macro aufzeichnen gemacht, mit einer Beispieldatei. Jetzt muss ich wahrscheinlich die eine datei in *.* ändern, dass das Makro alle dateien im Ordner Konvert nimmt. Oder ist der Weg anders. Hier mal der Macrocode:

REM  *****  BASIC  *****

Sub Main

End Sub

sub transform
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:Open", "", 0, Array())

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())

end sub