Биржа копирайтинга Антиплагиат SEO-анализ текста Скачать Advego Plagiatus Проверка орфографии Транслит онлайн Антикапча

Свободная тема — Форум Адвего

боковая панель
Разное / Свободная тема
DELETED
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

Написал: DELETED , 01.05.2011 в 16:09
Комментариев: 36
Последние темы:
Комментарии
Wasilina
За  0  /  Против  0
Wasilina  написала  01.05.2011 в 18:41
Чот ты не тем занимаесси сеня. Надо вотку пить, а не проблемы с Open Office устранять)

                
dins1904
За  0  /  Против  0
dins1904  написал  02.05.2011 в 15:52
Я вообще прогоняю через сео-анализ (вверху ссыль имееццо) и получаю полный фарш... :)

                
DELETED
За  0  /  Против  0
DELETED  написал  02.05.2011 в 16:14  в ответ на #31
Вариант)

                
docadept
За  0  /  Против  0
docadept  написал  03.05.2011 в 17:12
Не нужно жалеть сотню знаков для заказчика!))) А вообще в среднем, пробелы составляют 13-14% количества знаков с пробелами. Так шо можно умножать на 1,15 требуемое число без пробелов и ориентироваться по этому числу, сколько же нужно накатать с пробелами.

                
DELETED
За  0  /  Против  0
DELETED  написал  04.05.2011 в 08:53  в ответ на #33
Тебе не нужно - не жалей.

                
docadept
За  0  /  Против  0
docadept  написал  04.05.2011 в 15:23  в ответ на #34
Ты чо, не выспался штоль?

                
DELETED
За  0  /  Против  0
DELETED  написал  04.05.2011 в 16:10  в ответ на #35
С бодуна был.

                
Отправка жалобы...
Спасибо, ваша жалоба принята
Вы уже жаловались
Ваша учётная запись заблокирована для участия в форуме.
Жаловаться можно только на чужой комментарий
Избранное
Добавить в избранное
Имя
URL
https://advego.com/blog/read/freestyle/327761/all1/