У меня на нетбуке был изначально установлен OpenOffice. Сначала хотела Ворд установить, но потом привыкла. Так в нем и работаю. Ксиютати, количество знаков он прекрасно считает.
Мой муж всегда говорил - коней на переправе не меняют. Я привыкла к ворду, а тут решила попробовать. Да, симпатичный, функциональный. Но надо же сначала его освоить, а потом переходить на него. А он взял и перешел сам. А как и где он считает?
Знаки опен офис считает)) Вынести функцию можно на панель в удобное место (у меня это самый первый значок) Пользуюсь давно - программа намного "легче". Да и текст выглядит в нем компактнее (визуально удобнее).
Далее "Редактировать" и вставляем вот такой код: <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
Не вижу принципиальной разницы между этими двумя программами. У меня на работе - ворд в лицензионном офисе 2010, дома - опен. Если ворд у вас установлен и нравится вам, так и работайте спокойно. Нюансы интерфейса и только, а функции одни и те же, в принципе.
Публикация комментариев и создание новых тем на форуме Адвего для текущего аккаунта ограничено. Подробная информация и связь с администрацией: https://advego.com/v2/support/ban/forum/1186
