LINUX.ORG.RU

Стандартными средствами никак. Только макросом, ИМХО.

http://qa.openoffice.org/issues/show_bug.cgi?id=10356

Элементарному нужному фичреквесту 8 лет, п*здец... В этом тикете макрос есть рабочий, если что. Для удобства можно на панельке кнопку с макросом сделать.

anotheranonymous ()
Ответ на: комментарий от anotheranonymous

Спасибо большое. Помогло. На всякий случай пишу здесь что именно нужно сделать:

Сервис->Макросы->Управление макросами->OpenOfficeOrg.Basic...

Далее Редактировать и вставляем вот такой код:

REM ***** BASIC *****

Sub CountNonBlankChars Dim xDoc, xFound as Object Dim nAllChars as Long xDoc = thiscomponent If not HasUnoInterfaces (xDoc, «com.sun.star.text.XTextDocument») Then msgbox(«This macro can be run on text documents only!», 16, «Non-Blanks count») exit sub end if nAllChars = xDoc.CharacterCount dim i as integer dim j as long dim oSearch Dim sRes Dim sBlanks$ j = 0 'sBlanks = Chr$(9) & " " & Chr$(13) & Chr$(10) & " ,;." sBlanks = Chr$(9) & " " 'sBlanks = " " For i = 1 To Len(sBlanks) oSearch = xDoc.createSearchDescriptor oSearch.SearchAll = true oSearch.SearchCaseSensitive = true oSearch.SearchString = mid(sBlanks, i, 1) xFound = xDoc.findAll(oSearch) j = j + xFound.Count Next j = nAllChars - j sRes = «Document contains » + str(nAllChars) + " characters and " + str(j) + _ " non-blank characters." msgbox(sRes, 64, «Non-Blanks count») end sub

Теперь его можно вывести на панель инструментов.

Сервис->Настойка->Панель инструментов->Добавить

Выбираем Макросы->Мои макросы->Standart-Module1->Добавить

Появляется кнопка с именем CountNonBlankChars

sskirtochenko ★★ ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.