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

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

боковая панель
Разное / Свободная тема
karawella
Нужна помощь!

Суть проблемы такова. Вчера посоветовали скачать опен офис, мол, удобнее. Скачала. Но сегодня, когда попыталась открыть свои материалы, они вышли не вордом, а в опенофисном виде. Поскольку я его еще не изучила, да и не очень понравился (скажем, знаки не считает), я удалила его. Теперь все материалы, что у меня были на компе в ворде, а потом стали в опенофисном виде, открываются так, что я работать над текстами не могу.
Пожалуйста, помогите вернуть ворд! Нет, он остался, но как сделать, чтобы все стало в прежнем виде?

Написала: karawella , 24.06.2015 в 09:42
Комментариев: 37
Последние темы:
Комментарии

Показано 12 комментариев
Brodeckaya
За  0  /  Против  0
Brodeckaya  написала  24.06.2015 в 10:54
Знаки опен офис считает)) Вынести функцию можно на панель в удобное место (у меня это самый первый значок)
Пользуюсь давно - программа намного "легче". Да и текст выглядит в нем компактнее (визуально удобнее).
#10.1
637x750, png
112 Kb

                
karawella
За  0  /  Против  0
karawella  написала  24.06.2015 в 11:16  в ответ на #10
Но он не читает, как ворд - с пробелами и без..

                
Brodeckaya
За  0  /  Против  0
Brodeckaya  написала  24.06.2015 в 11:22  в ответ на #13
угу...считает с пробелами - мне этого достаточно ;)

                
Consecutive_interpreter
За  0  /  Против  0
Consecutive_interpreter  написал  24.06.2015 в 13:09  в ответ на #13
Сервис->Макросы->Управление макросами->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

                
karawella
За  0  /  Против  0
karawella  написала  24.06.2015 в 17:18  в ответ на #28
Простите, что в итоге получится? Сервис - это где?
Он был на панели инструментов, я удалила, потому что в ворде ничего не открывалось.

                
Consecutive_interpreter
За  0  /  Против  0
Consecutive_interpreter  написал  24.06.2015 в 17:32  в ответ на #30
Научиться счетать без пробелов.
Где сервис не помню, потому что уже года три-четыре пользуюсь исключительно пиратским софтом мелкомягких.

                
karawella
За  0  /  Против  0
karawella  написала  24.06.2015 в 18:46  в ответ на #32
Ааа.. Спасибо, буду пробовать! Но жутко боюсь всего пиратского

                
karawella
За  0  /  Против  0
karawella  написала  24.06.2015 в 11:24  в ответ на #10
Да, симпатично смотрится. Может, и перейду, но со временем. Все же в ворде с подсчетом немного четче. Иногда нужно считать и с пробелами, и без

                
skifija
За  0  /  Против  0
skifija  написала  24.06.2015 в 11:32  в ответ на #19
Не вижу принципиальной разницы между этими двумя программами. У меня на работе - ворд в лицензионном офисе 2010, дома - опен. Если ворд у вас установлен и нравится вам, так и работайте спокойно. Нюансы интерфейса и только, а функции одни и те же, в принципе.

                
karawella
За  0  /  Против  0
karawella  написала  24.06.2015 в 11:39  в ответ на #22
Да, вы правы, просто хотелось попробовать. Не думала, что он не просто установится, а и сразу переведет на себя все, что есть в компе.

                
apollion
За  0  /  Против  0
apollion  написал  24.06.2015 в 17:29  в ответ на #19
Используйте для подсчета знаков например вот этот онлайн вариант http://www.8nog.com/counter/index.php?chronometr

                
karawella
За  0  /  Против  0
karawella  написала  24.06.2015 в 18:50  в ответ на #31
Спасибо за отличный сервис! В самом деле, удобно..

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