Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

8 Март 2021, 08:59 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Здесь можно поблагодарить участников форума Улыбка
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Изменение заголовка документа  (Прочитано 4949 раз)
0 Пользователей и 1 Гость смотрят эту тему.
as1234
Век живи , век учись ))
Участник
**
Offline Offline

Пол: Мужской
Сообщений: 35


« Стартовое сообщение: 30 Апрель 2012, 21:18 »

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

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

Как эго изменять посредством диалога ?  Подмигивающий
Записан
as1234
Век живи , век учись ))
Участник
**
Offline Offline

Пол: Мужской
Сообщений: 35


« Ответ #1: 1 Май 2012, 22:40 »

Пытаюсь как то через текстовое поле в диалоге , пока не выходит
Записан
JohnSUN
Капитана в тот день называли на "ты"
Гуру
*******
Offline Offline

Пол: Мужской
Расположение: Киев
Сообщений: 2 764


Помогаю людям и компьютерам понимать друг друга


WWW
« Ответ #2: 5 Май 2012, 12:14 »

Попробуй как-нибудь так:
Код:
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
Записан

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне
as1234
Век живи , век учись ))
Участник
**
Offline Offline

Пол: Мужской
Сообщений: 35


« Ответ #3: 10 Май 2012, 22:53 »

Спасибо !!!! Очень пригодилось!!!  Всё хорошо
« Последнее редактирование: 10 Май 2012, 23:20 от as1234 » Записан
JohnSUN
Капитана в тот день называли на "ты"
Гуру
*******
Offline Offline

Пол: Мужской
Расположение: Киев
Сообщений: 2 764


Помогаю людям и компьютерам понимать друг друга


WWW
« Ответ #4: 10 Май 2012, 22:56 »

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

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне
as1234
Век живи , век учись ))
Участник
**
Offline Offline

Пол: Мужской
Сообщений: 35


« Ответ #5: 10 Май 2012, 23:24 »

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

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
Капитана в тот день называли на "ты"
Гуру
*******
Offline Offline

Пол: Мужской
Расположение: Киев
Сообщений: 2 764


Помогаю людям и компьютерам понимать друг друга


WWW
« Ответ #6: 11 Май 2012, 07:27 »

Пошел по другому пути...
Так это же кардинально другое направление!  Смеющийся
То что путь наглухо прописан к папке tmp - не... э-э-э... волнует?
Записан

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!