Пошел по другому пути , чтоб не через заголовок в свойствах имя сохранялось ))
Полепил и вот что вышло

Sub Main
Dim newTitle
newTitle = ThisComponent.getCurrentController().getTitle() ' Получить в переменную newTitle текущее имя окна
newTitle = InputBox("Введите имя", "Сохранить документ", newTitle) ' Спросить новое имя
If Trim(newTitle) = "" Then Exit Sub ' Отказался от ввода имени? Ничего не делать
ThisComponent.getCurrentController().setTitle(newTitle) ' Установить для окна указанное имя
cFolderToSave = "c:\tmp\new"
' Save the document as SXW
cURL = ConvertToURL( cFolderToSave + "\" + newTitle + ".odt" )
ThisComponent.storeAsUrl( cURL, Array() )
End Sub