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

[Alex16]

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

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

[JohnSUN]

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

[Alex16]

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

[JohnSUN]

Есть, конечно, как не есть... в смысле - как не быть
Называется DirectoryNameOutOfPath, находится в библиотеке Tools, в модуле Strings.
Сначала говоришь бэйсику, что можно пользоваться этой библиотекой (один раз, где-то в начале процедуры)

Код Выделить Развернуть

GlobalScope.BasicLibraries.LoadLibrary("Tools")
А потом выдергиваешь путь из какого-нибудь полного пути-имени файла

Код Выделить Развернуть

sPath = DirectoryNameOutOfPath(ThisComponent.getURL(), "/")

[Alex16]

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