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

[Борис_С]

Всем доброго дня.
Подскажите, пожалуйста, как получить значение свойства 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]

Подскажите, пожалуйста, как получить значение свойства HeaderIsShared в VBA.

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

Но ведь это не VBA!

[Борис_С]

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

[mikekaganski]

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

[Борис_С]

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

[mikekaganski]

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

[sokol92]

VBA я не знаю, как определяется аналогичное свойство.

БКС Макрорекордер знает (для MS Word это не часто).