![]() |
|
| Правила Форума редакция от 22.06.2020 |
|
|||||||
|
|
Окажите посильную поддержку, мы очень надеемся на вас. Реквизиты для переводов ниже. |
|
![]() |
|
|
Опции темы | Опции просмотра |
Language
|
|
|
#211
|
|
Постоялец
![]() ![]() ![]() Пол:
Регистрация: 22.11.2006
Сообщений: 328
Репутация: 108
|
Ребята, кто может помочь в написании макросов/скриптов для LibreOffice, аналогичного нижеследующим, которые написаны для MsOffice?
В LibreOffice названия объектов не совпадают с MsOffice, поэтому просто так эти макросы в LibreOffice работать не будут (ну, или я не знаю как их правильно запустить). Макрос удаляет все корректные имена именованных диапазонов: Код:
Sub DeleteAllNames() Dim oName As Name, iRemaining As Integer, sRemaining As String On Error Resume Next Application.ReferenceStyle = xlR1C1 For Each oName In ActiveWorkbook.Names oName.Delete Next DoEvents Application.ReferenceStyle = xlA1 For Each oName In ActiveWorkbook.Names oName.Delete Next DoEvents For Each oName In ActiveWorkbook.Names iRemaining = iRemaining + 1 sRemaining = sRemaining & oName.Name & vbCrLf Next If sRemaining <> vbNullString Then MsgBox "Оставшиеся имена - " & Format(iRemaining) & " всего, по одному на строку:" & vbCrLf & vbCrLf & sRemaining Else MsgBox "Все имена удалены." End If End Sub Код:
Sub DeleteAllStyles() Dim st As Style, AllStyles As Long With ActiveWorkbook AllStyles = .Styles.Count MsgBox "Всего стилей в документе: " & AllStyles & Chr(10) & "Для успешного удаления стилей нужно снять защиту на всех листах.", vbInformation On Error Resume Next For Each st In .Styles If st.Name <> "Normal" Then st.Delete Next On Error GoTo 0 MsgBox "Было удалено стилей: " & AllStyles - .Styles.Count & Chr(10) & "Осталось стилей: " & .Styles.Count, vbInformation End With End Sub |
|
|
|
| Реклама: |
|
|
#212
|
|
Постоялец
![]() ![]() Пол:
Регистрация: 10.02.2008
Адрес: Москва
Сообщений: 218
Репутация: 36
|
всем доброго дня, у меня возник вопрос
документ формата док открываю LO и сохраняю в odt, но в документе есть защищенные паля ввода, как их удалить и снять с них защиту в LO сам уже два дня голову ломаю, пока выход это копирование всего и вставка в новый текста без форматирования, но это не есть гуд
__________________
реклама запрещена |
|
|
|
|
|
#213
|
|
Новичок
![]() Пол:
Регистрация: 13.09.2006
Сообщений: 15
Репутация: 7304
|
Подскажите - "Защита листа в таблице ods OpenOffice Calc" чем снимается (пароль)? Нашлась невероятно "ценная" главному сердцу таблица на 5 листах (на последнем выдается Итого по всем хотениям) Ну не лепить же по новому с сегоднешними хотелками ... Accent Office Password Recovery 7, 8 с любимого форума что-то не хотят открывать (Type: OpenOffice v1.1), в Ехсеl не конвертируется ... С OpenOffice опыт общения мизерный, а тут вот случилось невероятное ...
Спасибо, |
|
|
|
|
|
#214
|
|
Новичок
Пол:
Регистрация: 19.09.2011
Сообщений: 4
Репутация: 12
|
|
|
|
|
|
|
#215
|
|
Новичок
Пол:
Регистрация: 08.01.2015
Сообщений: 11
Репутация: 0
|
1) Мне в OO не хватает нормального редактора регулярных выражений. Чтобы было как "найти/заменить" от MS. Конкретно - работа с символами табуляции и переноса строки.
2) Чтобы работать с OO, нужна современная машина и х64 разрядная операционка. Иначе, работа с большими документами - ад. |
|
|
|
|
|
#216
|
|
по п.1. в LibreOffice (насколько помню, в OO также) Ctrl-H (абсолютно также, как в MS Office), далее выбираете "Другие параметры" и кнопка "Атрибуты" - выбираете из списка. по п.2. - какие "большие" документы Вы обрабатываете? Требования к ресурсам у OO/LO не выше, чем у MS аналогичной версии. К слову, текстовые документы в MS Word на 150 страниц, насыщенных таблицами, диаграммами, ссылками, наличием нескольких стилей форматирования и т.п. вполне спокойно обрабатывались на тогда еще MS Word 6.0 под Win 3.11 и машине x486-66 - критичным было наличие ОЗУ 2Мб Сейчас эти документы свободно открывал в MS Office 2010 и LibreOffice 2.0 на нетбуке c первым Atom'ом
__________________
Хочешь сказать - нажми кнопку
|
|
|
|
|
|
|
#217
|
|
Пользователь
Пол:
Регистрация: 02.07.2009
Сообщений: 33
Репутация: 5
|
Проблема с Либре.
Требования к оформлению документов делают чаще всего под MS Word и LaTex. Поля и красную строку указывают в СМ, а отступы до/после абзацев в Пт. Выбираем единицы измерения СМ. Тогда линейка в СМ, но сложно выставлять отсутпы до и после абзацев в Пт. И наоборот. Как сделать чтобы как в Ворде линейка была в СМ, а настройки абзацев в Пт? |
|
|
|
|
|
#218
|
|
Неактивный пользователь
Пол:
Регистрация: 25.10.2016
Сообщений: 7
Репутация: 1
|
Либре вообще беда, если в одном документе работают в либре и экселе, хана таблице.
|
|
|
|
|
|
#219
|
|||||||||||||||||||||||
Какие версии программ используете? Что за таблицы у Вас? В каком формате файла? Мы используем файлы совместно Excel/LibreOffice. Никаких проблем.
__________________
Хочешь сказать - нажми кнопку
|
||||||||||||||||||||||||
|
|
|
| Сказали спасибо: |
|
|
#220
|
|
Неактивный пользователь
Пол:
Регистрация: 25.10.2016
Сообщений: 7
Репутация: 1
|
Последняя либра и Excel 2016, простенькие таблицы еще нормально, но если с формулами, все беда. Но покупать всем e 2016 денег не дают, а еще раз объяснять отделу "К" что ты не дурак, не охота.
|
|
|
|
|
|
#221
|
|||||||||||||||||||||||
Последняя версия LibreOffice 5.2.2 (пре-релиз 5.2.3.1). Какой формат файла в совместной работе используете? Excel 2016? А для чего? Формат некоторых формул у них различается, поэтому надо проверять на конкретных задачах. Штатно у LibreOffice высокая совместимость с форматом MS Excel 2003. С версиями 2007/2010 тоже работает. Формат более высоких версий Excel не всегда работает (правильнее даже - работает не всегда) даже в предыдущих версиях Excel. А Вы хотите обеспечить 100% совместимость у стороннего разработчика. На месте IT я бы еще заставил Вас обосновать необходимость применения именно версии 2016 вместо, например, версии 2010 (или какая стоит на остальных компьютерах). Мы используем связку на базе файла MS Excel 2003 (расширение xls) в режиме "сохранение файла в Excel и чтение в LO". В то же время на LO создаются и ведутся собственные таблицы, которые без труда открываются в Excel 2007/2010. Excel лицензионный, а LO свободен.
__________________
Хочешь сказать - нажми кнопку
|
||||||||||||||||||||||||
|
|
|
|
|
#222
|
|
Неактивный пользователь
Пол:
Регистрация: 25.10.2016
Сообщений: 7
Репутация: 1
|
andrey_k,
Как я и написал выше, ко мне пришли друзья из МВД отдела "К", ну и мне пришлось покупать лицензии, а сейчас тока продаеться win 10 и Office 2016. xlsx формат после работы в либре вообще криво, xls более менее сносно, но все форматы слетают. Надеюсь Либру допилят под 2016, докупать всем кому не купил денег жалко. Последний раз редактировалось andrey_k; 26.10.2016 в 19:26.. Причина: убрал цитату |
|
|
|
|
|
#223
|
|||||||||||||||||||||||
пока не допилили, лучше использовать сразу формат, который не слетает. Т.е. сохранить файл в формате 2003, и потом форматы назначать копированием имеющихся
__________________
Хочешь сказать - нажми кнопку
|
||||||||||||||||||||||||
|
|
|
|
|
#224
|
|
Неактивный пользователь
Пол:
Регистрация: 25.10.2016
Сообщений: 7
Репутация: 1
|
|
|
|
|
|
|
#225
|
|||||||||||||||||||||||
если очень хочется, и возможности есть, то почему и не купить. имхо, если острой необходимости именно в новых возможностях нет, то вполне можно использовать предыдущие форматы файлов: кому новые возможности не требуются, никакой разницы не заметят. Это в случае, когда приоритет функционалу, а не "фенечкам". Есть Excel 2016 у тех, кому оно надо либо вынужденно (предыдущие версии не продаются), у остальных - что уже есть. Общие файлы в совместимом со всеми участниками обмена формате.
__________________
Хочешь сказать - нажми кнопку
|
||||||||||||||||||||||||
|
|
|
![]() |
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| OpenOffice.org | Dogmatist | Офис | 65 | 24.11.2018 20:22 |
| XNView - обсуждение проблем и их решения | Spec | Просмотр, конверторы и редакторы графики | 21 | 23.09.2014 07:52 |
| Проблемы с DVD и CD приводами. (Здесь только вопросы и решения проблем) | Timyan | Компьютерные проблемы | 844 | 12.09.2012 19:57 |
| OpenOffice все версии | semiono | МOffice, Переводчики (словари), Органайзеры, Текстовые редакторы | 134 | 22.03.2011 15:29 |
| OPENOFFICE | ludmila | КПК | 10 | 15.10.2008 08:09 |
|
|