Суть проблемы такова. Вчера посоветовали скачать опен офис, мол, удобнее. Скачала. Но сегодня, когда попыталась открыть свои материалы, они вышли не вордом, а в опенофисном виде. Поскольку я его еще не изучила, да и не очень понравился (скажем, знаки не считает), я удалила его. Теперь все материалы, что у меня были на компе в ворде, а потом стали в опенофисном виде, открываются так, что я работать над текстами не могу.
Пожалуйста, помогите вернуть ворд! Нет, он остался, но как сделать, чтобы все стало в прежнем виде?
Знаки опен офис считает)) Вынести функцию можно на панель в удобное место (у меня это самый первый значок) Пользуюсь давно - программа намного "легче". Да и текст выглядит в нем компактнее (визуально удобнее).
Далее "Редактировать" и вставляем вот такой код: <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