Ощущается как +12

749мм

Новая тема

Вы не можете создавать новые темы.
Т.к. вы неавторизованы на сайте. Пожалуйста назовите себя или зарегистрируйтесь.

Список тем

Макросы в OpenOffice (очень надо)

С друзьями на NN.RU

У вас пока нет друзей на NN.RU, поэтому ссылка на тему не может быть отправлена.

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

В социальных сетях

Idol

10.11.2005

Господа!!!

Вот срочно понадобилось написать макрос ... все-бы ни чего, да вот ни как не получается корректно посчитать кол-во строк в (рабочем/открытом) документе.

Есть функция посчитать кол-во параграфов - но это несколько не то, так как надо считать строки ;)

Может кто помоч в этом деле?
Реально очень надо.

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Cweldulw

10.11.2005

Колличество строк есть в свойствах файла.
задача достать это оттуда.

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Idol

10.11.2005

ээээ ...
там знаете как ;) ... уу ...

там нажимаем на кнопочку он их считает и выдает ....
там видел ... достать не смог ...

может кто поможет? ;)

P.S. остальные данные нормально достаются

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Cweldulw

10.11.2005

Написать макрос нажимания на кнопочку :) шутка.
я с макросами вообще слабо, просто слышал что это не сложно (достать из свойств)

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Idol

10.11.2005

в свойствах нет .. писал же

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Cunning

10.11.2005

Го, а в коммунити разработчиков отписать? Этож не МС, лицензию не потребуют! :)

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Idol

10.11.2005

;) читаем офф форум .. разбираемся ;)

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Idol

10.11.2005

Всем спасиб .. вопрос закрыт ... решил так:

Sub Macro1

Dim oDoc
Dim oText
Dim oCursor
Dim count_str
Dim tmp_pos_cur_last
Dim tmp_pos_cur_now

count_str=0
oDoc = ThisComponent
oText = ThisComponent.Text
' oCursor = oText.CreateTextCursor()
document=ThisComponent
oCursor = document.currentcontroller.getViewCursor()

if oDoc.SupportsService("com.sun.star.text.TextDocument") then
oCursor.GoToStart(False)
temp_pos_cur_last = oCursor.getPosition().Y
do while (true=true)
count_str=count_str+1
oCursor.goDown(1,False)
temp_pos_cur_now = oCursor.getPosition().Y
if (temp_pos_cur_now = temp_pos_cur_last) then
exit do
end if
temp_pos_cur_last = temp_pos_cur_now
loop
print count_str
end if
End Sub

мдя ...

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Новая тема

Список тем

Последние темы форумов

Форум Тема (Автор) Последний ответ Ответов

Техно-форум Прошу Вас о помощи. - emdemov 16.05.2025 в 09:15:10 1

Объявления на НН.РУ - Техника

Добавить объявление

Принтер лазерный HEWLETT PACKARD HP-6L

Принтер лазерный HEWLETT PACKARD HP-6L Отправка в регионы после оплаты. 3штуки БУ. Внешний вид из магазина простояли на складе...
Цена: 4 500 руб.

Оперативная память Corsair XMS3 CMX8GX3M2A1600C9

Оперативная память Corsair XMS3 CMX8GX3M2A1600C9 Отправка в регионы после оплаты. Продаются сразу обе. Цена за обе 2000 руб....
Цена: 1 000 руб.

Сетевой фильтр APC Surge Arrest

Сетевой фильтр APC Surge Arrest для радиолюбителя.и не только Отправка в регионы после оплаты. ЦЕНА 3000 руб. В рабочем состоянии....
Цена: 3 000 руб.

Материнские платы на запчасти и не только

Материнские платы на запчасти и не только Материнские платы и другие комплектующие Отправка в регионы после оплаты. Транспортной...
Цена: 3 000 руб.