Макрос Save As...

На кнопку хочу назначить макрос Save As..., чтобы при этом можно было ввести нужное мне имя файла и сохранить в в выбранной папке. Записал макрос, но не знаю как подправить его, чтобы было то, что нужно мне:sub zakaz_saverem ----------------------------------------------------------------------rem define variablesdim document as objectdim dispatcher as objectrem ----------------------------------------------------------------------rem get access to the documentdocument = ThisComponent.CurrentController.Framedis patcher = createUnoService("com.sun.star.frame.Dis patchHelper")rem ----------------------------------------------------------------------dim args1(2) as new com.sun.star.beans.PropertyValueargs1(0) .Name = "URL"args1(0).Value = "file:///D:/Temp/123.ods"args1(1).Name = "FilterName"args1(1).Value = "calc8"args1(2).Name = "SelectionOnly"args1(2).Value = truedispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())end subЧем заменить выделенную строку, чтобы ОО спрашивал в какую папку и под каким именем сохранять файл?Спасибо!