LINUX.ORG.RU
Форум — General  

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


0

0 

Господа!!!

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

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

Может кто помоч в этом деле?
Реально очень надо.
← Аналог TagScanner
Кодировка в MySQL →
Ответ на: комментарий от anonymous

не подходит ... дело в том что эти данные надо вставить в специальную шапку .. которая вставляется по нажатию на иконку .. все сделал кроме просчета кол-ва строк. .. ни как не могу

galchyonok ★★
() автор топика
Ответ на: комментарий от Vlad_Ts 

Сделал .... вот решение:

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

galchyonok ★★
() автор топика
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
← Аналог TagScanner
General
Кодировка в MySQL →