Open Office количество символов без пробелов

С некоторых пор пользуюсь Open Office и не жалею.
Единственное неудобство - считает с пробелами. В базе знаний
предлагают для подсчета символов без пробелов совершать
хитрые манипуляции, вычитая их количество из имеющийся статистики.
Однако интернеты сказали, что существует более простой путь.
У меня сработало. Может, кому-то тоже пригодится.

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

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

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

Sub CountNonBlankChars
Dim xDoc, xFound as Object
Dim nAllChars as Long
xDoc = thiscomponent

If not HasUnoInterfaces (xDoc, "com.sun.star.text.XTextDocume nt") 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

</code>

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

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

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

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