Chcę zrobić makro, które zapisze aktualnie otwarty dokument .odt w podkatalogu /doc jako plik Worda 97.
Zrobiłem tyle co poniżej, lecz plik jest zapisany w tym samym katalogu z nazwą "plik.odt.doc". Jak to zrobić żeby było w podkatalogu /doc i nazwą "plik.doc"?
Katalog z aktualnym plikiem się zmienia, ale pliki .doc zawsze mają lądować w podkatalogu /doc.
Kod: Zaznacz cały
REM ***** BASIC *****
Sub Main
End Sub
sub Save_as_doc
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 ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = ThisComponent.getURL() & ".doc"
args1(1).Name = "FilterName"
args1(1).Value = "MS Word 97"
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())
end sub
Wojtek