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

[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 - не... э-э-э... волнует?