как подсчитать количество страниц в документе ?

[Михаил53]

Подскажите как можно подсчитать через макрос кол-во страниц в OpenOffice ?

[bigor]

В каком документе? writer? calc?

[sokol92]

Если для документа Calc, то можно так (для всего документа, листа, диапазона ячеек):

Код Выделить Развернуть

Sub Test
  Dim n As Long
  n=ThisComponent.getRendererCount(ThisComponent, Array()) ' число страниц для документа
  n=ThisComponent.getRendererCount(ThisComponent.Sheets(0), Array()) ' число страниц для первого листа документа
  n=ThisComponent.getRendererCount(ThisComponent.Sheets(0).getCellRangeByName("A1:D99"), Array()) ' число страниц для диапазона ячеек
End Sub

[bigor]

Для writer я так считаю

Код Выделить Развернуть

Sub Main
Print thiscomponent.currentcontroller.pagecount
End sub

[Михаил53]

Если для документа Calc, то можно так (для всего документа, листа, диапазона ячеек):

Код Выделить Развернуть

Sub Test
  Dim n As Long
  n=ThisComponent.getRendererCount(ThisComponent, Array()) ' число страниц для документа
  n=ThisComponent.getRendererCount(ThisComponent.Sheets(0), Array()) ' число страниц для первого листа документа
  n=ThisComponent.getRendererCount(ThisComponent.Sheets(0).getCellRangeByName("A1:D99"), Array()) ' число страниц для диапазона ячеек
End Sub

Это работает в OpenOffice Calc?

[bigor]

Это работает в OpenOffice Calc?

Проверьте. Не у всех он стоит. Нашел. Работает

[Михаил53]

А как можно в документе реализовать код подсчета страниц и вывод в нужной ячейке значения, по событию - изменение масштаба страниц ?

[bigor]

А разве есть такое событие листа?

[Михаил53]

А разве есть такое событие листа?

Я не знаю, просто нужно решение, что бы при подгонке страниц по масштабу автоматически пересчитывалось кол-во листов и выводилось.

[mikekaganski]

Создайте пользовательскую функцию, используя код из #2, и в ячейке, где она будет, используйте NOW() или другую волатильную функцию - примерно так:

Код Выделить Развернуть

=T(NOW()) & MY_FUNCTION()
или

Код Выделить Развернуть

=NOW() * 0 + MY_FUNCTION()