Сохранить как...

Автор Alex16, 30 ноября 2016, 10:56

0 Пользователи и 1 гость просматривают эту тему.

Alex16

Подскажите как в макросе сохранить документ с новым именем в каталоге с текущим документом?

sub savedocas
flnm = inputbox ("Введите имя файла отчета:", "Уважаемый пользователь", "namedefault.ods")
if flnm<>"" then ???
end sub

JohnSUN

... then
Если файл существует тогда
  Если существует файл .bak тогда удалить файл .bak
  Переименовать существующий файл в .bak
КонецЕсли

ThisComponent.storeAsURL(...) или ThisComponent.storeToURL(...)
EndIf
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

Alex16

Спасибо. А как вытащить имя папки из getLocation.
Ну т.е. как вытащить я знаю, но нет ли чего-то готового в basic'е типа ExtractPach?

JohnSUN

Есть, конечно, как не есть... в смысле - как не быть
Называется DirectoryNameOutOfPath, находится в библиотеке Tools, в модуле Strings.
Сначала говоришь бэйсику, что можно пользоваться этой библиотекой (один раз, где-то в начале процедуры)
GlobalScope.BasicLibraries.LoadLibrary("Tools")
А потом выдергиваешь путь из какого-нибудь полного пути-имени файла
sPath = DirectoryNameOutOfPath(ThisComponent.getURL(), "/")
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

Alex16

#4
Спасибо. Сейчас попробую, а слэш не в другую сторону должен быть?
По сути можно оттуда выдернуть RTrimStr.... Ну что-то примерно так я и планировал сделать
Со слэшем разобрался)