Биржа копирайтеров Антиплагиат онлайн Проверка орфографии онлайн SEO анализ онлайн Транслит онлайн

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

боковая панель
Разное / Свободная тема
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
Последние темы:
Комментарии

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

                
DELETED
За  0  /  Против  0
DELETED  написала  01.05.2011 в 19:10  в ответ на #1
Алис, привет! Слушай, а у тебя малой писал в прошлую среду мониторинг по математике?..
(Вов, я дико извиняюсь, шо влезла не по теме, привет!)

                
Wasilina
За  0  /  Против  0
Wasilina  написала  01.05.2011 в 19:20  в ответ на #2
Привет) Нет, мы пока написали украинский и сочинение по русскому.

                
Wasilina
За  0  /  Против  0
Wasilina  написала  01.05.2011 в 19:20  в ответ на #2
Кстати, они где-то покупают перед экзаменами на весь класс ответы на все варианты)

                
DELETED
За  0  /  Против  0
DELETED  написала  01.05.2011 в 19:27  в ответ на #4
У нас во всех книжных есть (вопросы и ответы) и на сайте освита.сом (ток вопросы), мы уже затарились тож )))
Странно, я думала, мониторинг по всей стране (просто интересно стало, когда проверят, сказали, шо компутер проверять будет)...

                
Wasilina
За  0  /  Против  0
Wasilina  написала  01.05.2011 в 19:29  в ответ на #5
У нас учительница пока сказала предварительные оценки, но они уже радуются). Я математики не боюсь, вот английский немного опасения вызывает. Сказали там будут зачитывать вроде вопросы.

                
DELETED
За  0  /  Против  0
DELETED  написала  01.05.2011 в 19:33  в ответ на #6
А у нас английский заменили на зарубежку... Ты почитай по географии вопросы - я уже слегка охренела...(((

                
Wasilina
За  0  /  Против  0
Wasilina  написала  01.05.2011 в 19:57  в ответ на #7
Какая география? Я сейчас охренела. И что за зарубежка? Мы такого не учили вообще) У нас школа вальдорфская и программа совсем другая. Кстати, я не знаю как там с проверкой кампутера, но они в школе не учили еще квадратные уравнения и учительница сказала, что у нас их на экзамене не будет. Я вообще не пойму эту систему.

                
DELETED
За  0  /  Против  0
DELETED  написала  01.05.2011 в 20:04  в ответ на #10
У вас экзамены будут??? И сколько штук?

                
Wasilina
За  0  /  Против  0
Wasilina  написала  01.05.2011 в 20:18  в ответ на #12
Не ну эти тесты же вроде как экзаменами считаются. Лера, какие экзамены? Нам до сих пор оценок не ставят - чтобы дети не волновались и не обижались, типа не ранить детскую психику. А эти дети уже под 1,8.

                
DELETED
За  0  /  Против  0
DELETED  написала  01.05.2011 в 20:21  в ответ на #18
Слушай, а свидетельство о неполном среднем образовании им светит в конце года??? В смысле - без оценок? )))

                
Wasilina
За  0  /  Против  0
Wasilina  написала  01.05.2011 в 20:26  в ответ на #21
Подожди, так мы 8 вроде заканчиваем, если не ошибаюсь, чур меня. Вы 9?

                
DELETED
За  0  /  Против  0
DELETED  написала  01.05.2011 в 20:28  в ответ на #23
Упс....))))))))))))))))))))
Ты ж говорила, что девятый??? )))))))))))))

                
Wasilina
За  0  /  Против  0
Wasilina  написала  01.05.2011 в 20:41  в ответ на #24
Мож перепутала) Тока шо глянула - 8-ой)

                
DELETED
За  0  /  Против  0
DELETED  написала  01.05.2011 в 20:48  в ответ на #26
Везет вам!.. )))

                
Wasilina
За  0  /  Против  0
Wasilina  написала  01.05.2011 в 20:54  в ответ на #27
Да, везет. Я не представляю как мы будем эти тесты в 11 сдавать. Вообще мрак. Хоть переодевайся и вместо него иди) Так не пустют же, вражины)

                
DELETED
За  0  /  Против  0
DELETED  написала  01.05.2011 в 20:58  в ответ на #28
Самое противное, что не знаешь, какая блоха Табачника завтра укусит, что за финты оно накануне (иначе просто не интересно) экзаменов выкинет...(((

                
Wasilina
За  0  /  Против  0
Wasilina  написала  01.05.2011 в 21:34  в ответ на #29
Да боюсь что мы кагбэ любые не сдадим)

                
DELETED
За  0  /  Против  0
DELETED  написал  01.05.2011 в 19:42  в ответ на #2
Ничего страшного. Привет)

                
DELETED
За  0  /  Против  0
DELETED  написал  01.05.2011 в 19:39  в ответ на #1
Вишь, шо случаеццо, кады желание вотку пить пропадает...

                
Wasilina
За  0  /  Против  0
Wasilina  написала  01.05.2011 в 19:58  в ответ на #8
Ужасть. Што-то ты совсем плохой. Иди на улицу! Там и желание появится)

                
DELETED
За  0  /  Против  0
DELETED  написал  01.05.2011 в 20:05  в ответ на #11
Какая улица, ты што?!
Кто тогда работать в стране будет?

                
DELETED
За  0  /  Против  0
DELETED  написала  01.05.2011 в 20:05  в ответ на #13
Вот-вот, правильно!.. )))

                
DELETED
За  0  /  Против  0
DELETED  написал  01.05.2011 в 20:07  в ответ на #14
Да не говори. Алкоголизм с легкостью заменяется трудоголизмом)))
Чем бы не тешиться, лишь бы от себя сбежать)))

                
DELETED
За  0  /  Против  0
DELETED  написала  01.05.2011 в 20:10  в ответ на #15
Блин, чет у всех в последнее время настроение потерялось...((( Ниче, скоро фсе образуется, держись тока! )))

                
DELETED
За  0  /  Против  0
DELETED  написал  01.05.2011 в 20:12  в ответ на #16
Спасибо.
С настроением все нормально (надеюсь у тебя тоже), но держаться буду! :)

                
Wasilina
За  0  /  Против  0
Wasilina  написала  01.05.2011 в 20:19  в ответ на #17
Во! Прально! Надо это дело отметить!

                
DELETED
За  0  /  Против  0
DELETED  написал  01.05.2011 в 20:21  в ответ на #19
:))

                
DELETED
За  0  /  Против  0
DELETED  написала  01.05.2011 в 20:26  в ответ на #20
Вотки не нашла, зато нашла это!.. )))
#22.1
450x586, jpeg
70.4 Kb

                
DELETED
За  0  /  Против  0
DELETED  написал  01.05.2011 в 20:31  в ответ на #22
:))

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