Изменение заголовка документа

[as1234]

Sub Main
 mytitle = "мой документ"
 docattr = thisComponent.getDocumentInfo()
 docattr.Title = mytitle
 thisComponent.CurrentController.Frame.Title = mytitle
End Sub

Тут собсно сам макрос как его изменить

Как эго изменять посредством диалога ? 

[as1234]

Пытаюсь как то через текстовое поле в диалоге , пока не выходит

[JohnSUN]

Попробуй как-нибудь так:

Код:

REM Установить новое имя для текущего окна
Sub setNewTitle
Dim newTitle
newTitle = ThisComponent.getCurrentController().getTitle() ' Получить в переменную newTitle текущее имя окна
newTitle = InputBox("Введите новое имя", "Заголовок окна", newTitle) ' Спросить новое имя
If Trim(newTitle) = "" Then Exit Sub ' Отказался от ввода имени? Ничего не делать
ThisComponent.getCurrentController().setTitle(newTitle) ' Установить для окна указанное имя
End Sub

[as1234]

Спасибо !!!! Очень пригодилось!!! 

[JohnSUN]

Ну да, и не внесется, пока не сохранишь... Ты же спрашивал про заголовок окна?

[as1234]

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

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

[JohnSUN]

Пошел по другому пути...

Так это же кардинально другое направление! 
То что путь наглухо прописан к папке tmp - не... э-э-э... волнует?