Как получить значение свойства HeaderIsShared

Автор Борис_С, 23 февраля 2022, 18:02

0 Пользователи и 1 гость просматривают эту тему.

Борис_С

Всем доброго дня.
Подскажите, пожалуйста, как получить значение свойства HeaderIsShared в VBA.
Небольшое дополнение.
Это свойство описано на странице https://api.libreoffice.org/docs/idl/ref/servicecom_1_1sun_1_1star_1_1style_1_1PageProperties.html
Из Help не очень понятно, к какому объекту относится это свойство, и как получить к нему допуск.
Спасибо.

Борис_С

Разобрался. Вот код:

      oVCurs = ThisComponent.CurrentController.getViewCursor()
      s = oVCurs.PageStyleName
      oStyle = ThisComponent.StyleFamilies.getByName("PageStyles").getByName(s)
      bHeaderIsShared = oStyle.HeaderIsShared   'является ли содержимое  верхнего колонтитула на левой и на правой страницах
             'одинаковым

mikekaganski

Цитата: Борис_С от 23 февраля 2022, 18:02Подскажите, пожалуйста, как получить значение свойства HeaderIsShared в VBA.
Цитата: Борис_С от 24 февраля 2022, 18:18Разобрался. Вот код:

Но ведь это не VBA! :-\
С уважением,
Михаил Каганский

Борис_С

Я прошу прощения за свою серость. А что это?

mikekaganski

Это StarBasic - другой язык из семейства Basic, куда относятся ещё десятки языков.
С уважением,
Михаил Каганский

Борис_С

Спасибо. Постараюсь быть повнимательнее.

mikekaganski

Дело в том, что этой ошибкой Вы запутали, например, меня, и я не стал писать, как определить в StarBasic, поскольку вопрос был не про него, а в VBA я не знаю, как определяется аналогичное свойство.
С уважением,
Михаил Каганский

sokol92

Цитата: mikekaganski от 24 февраля 2022, 18:55VBA я не знаю, как определяется аналогичное свойство.
БКС Макрорекордер знает (для MS Word это не часто).  :)
Владимир.