Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

28 Ноябрь 2020, 19:33 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Вы можете задать вопрос по LibreOffice или Apache OpenOffice без регистрации, используя форму
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1 2 »   Вниз
  Печать  
Автор Тема: Добрый день. При сохранении файла из xlsx в ods, все внешни?...  (Прочитано 660 раз)
0 Пользователей и 1 Гость смотрят эту тему.
ForumOOo (бот)

Offline Offline

Сообщений: 747


« Стартовое сообщение: 12 Ноябрь 2020, 11:50 »

Компонент: Calc
Версия продукта: 5.x
Сборка: ID сборки: 60bfb1526849283ce2491346ed2aa51c465abfe6
ОС: Windows 10

Добрый день. При сохранении файла из xlsx в ods, все внешние ссылки в тексте (ссылка перехода на сайт) не стали
активными. Но когда ты проваливаешься в строку и после ссылки ставишь пробел, то она активная. Вопрос: Существует ли
другой способ сделать ссылки активными, помимо которого я описал, т.к. у меня таких 3000+ строк.

--
Подпись: CatPaws
Записан
kompilainenn
Мастер
*****
Offline Offline

Сообщений: 3 092



« Ответ #1: 12 Ноябрь 2020, 11:59 »

Можно пример файлика и версию офиса напишите
Записан

Поддержать разработчиков LibreOffice можно тут, а наш форум вот тут
CatPaws
Участник
**
Offline Offline

Сообщений: 6


« Ответ #2: 12 Ноябрь 2020, 12:13 »

Версия: 6.0.1.1
ID сборки: 60bfb1526849283ce2491346ed2aa51c465abfe6
Потоков ЦП: 4; ОС:Windows 10.0; Отрисовка ИП: по умолчанию;
Локаль: ru-RU (ru_RU); Calc: CL

* Пример1.ods (3.21 Кб - загружено 7 раз.)
Записан
economist
Форумчанин
***
Offline Offline

Сообщений: 1 314


« Ответ #3: 12 Ноябрь 2020, 12:46 »

Существует ли
другой способ сделать ссылки активными, помимо которого я описал, т.к. у меня таких 3000+ строк.

В пустом столбце написать =ГИПЕРССЫЛКА([адресдохлойсслыки];[адресдохлойсслыки]) и протянуть вниз.
Записан

Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...
Bigor
Мастер
*****
Offline Offline

Пол: Мужской
Сообщений: 1 017


« Ответ #4: 12 Ноябрь 2020, 13:16 »

Как вариант
Код:
=HYPERLINK(REGEX(B2;"(http).*");SUBSTITUTE(B2;REGEX(B2;"(http).*");""))
ну или вторым параметром тоже ссылку прописать

зы не помню в какой версии REGEX появился. Возможно придется обновляться

« Последнее редактирование: 12 Ноябрь 2020, 13:18 от Bigor » Записан

Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут
CatPaws
Участник
**
Offline Offline

Сообщений: 6


« Ответ #5: 12 Ноябрь 2020, 13:48 »

Существует ли
другой способ сделать ссылки активными, помимо которого я описал, т.к. у меня таких 3000+ строк.

В пустом столбце написать =ГИПЕРССЫЛКА([адресдохлойсслыки];[адресдохлойсслыки]) и протянуть вниз.

Выходит Ошибка 507 и 520. Если у меня таких 3000 разных адресов, мне всех их прописывать в формуле? Может есть макрос, который может выполнит действие что я описал изначально?
Записан
Bigor
Мастер
*****
Offline Offline

Пол: Мужской
Сообщений: 1 017


« Ответ #6: 12 Ноябрь 2020, 13:59 »

Мой вариант пробовали? Прописываете один раз и протягивание вниз. Или дважды щёлканье на левом нижнем углу.
Записан

Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут
CatPaws
Участник
**
Offline Offline

Сообщений: 6


« Ответ #7: 12 Ноябрь 2020, 14:01 »

Мой вариант пробовали? Прописываете один раз и протягивание вниз. Или дважды щёлканье на левом нижнем углу.

Не распознают такую функцию в строке "#ИМЯ?" Это значит обновить надо ЛибрОфис?
Записан
Bigor
Мастер
*****
Offline Offline

Пол: Мужской
Сообщений: 1 017


« Ответ #8: 12 Ноябрь 2020, 14:04 »

Да, или переписать формулу без regex. Но до компа только вечером доберусь
Записан

Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут
kompilainenn
Мастер
*****
Offline Offline

Сообщений: 3 092



« Ответ #9: 12 Ноябрь 2020, 14:19 »

Версия: 6.0.1.1
ID сборки: 60bfb1526849283ce2491346ed2aa51c465abfe6
Потоков ЦП: 4; ОС:Windows 10.0; Отрисовка ИП: по умолчанию;
Локаль: ru-RU (ru_RU); Calc: CL
Подождите, вопрос стоял, что присохранении из хлсх теряются ссылки. Можно сам хлсх исходный увидеть?
Записан

Поддержать разработчиков LibreOffice можно тут, а наш форум вот тут
CatPaws
Участник
**
Offline Offline

Сообщений: 6


« Ответ #10: 12 Ноябрь 2020, 14:32 »

К сожалению исходный файл прислать не могу. Но файл что я прислал, точно описывает суть проблемы.
Записан
sokol92
Форумчанин
***
Offline Offline

Пол: Мужской
Сообщений: 227


WWW
« Ответ #11: 12 Ноябрь 2020, 14:55 »

Нужен именно исходный файл Excel. Оставьте в нем пару ссылок и опишите действия, приводящие к проблеме.
Прилагаю файл Excel со ссылкой на данную тему. Если его открыть в Excel и сохранить как Электронную таблицу ODF, то с гиперссылкой все в порядке.

* Гиперссылка.xlsx (8.58 Кб - загружено 4 раз.)
Записан

Владимир.
CatPaws
Участник
**
Offline Offline

Сообщений: 6


« Ответ #12: 12 Ноябрь 2020, 15:24 »

Изначально не было гиперссылки по всему тексту. Нужно чтобы кликабельна была только ссылка, а не весь текст. Технически такое невозможно сделать в Excel. Поэтому я сохранил файл в формате odf, предполагая что все ссылки будут активными.
Записан
kompilainenn
Мастер
*****
Offline Offline

Сообщений: 3 092



« Ответ #13: 12 Ноябрь 2020, 15:45 »

К сожалению исходный файл прислать не могу. Но файл что я прислал, точно описывает суть проблемы.
я к чему это спрашиваю, это может быть ошибкой, о которой надо сообщить разработчикам, или это может быть уже исправлено в последних версиях ЛО. Вы используете достаточно древнюю версию
Записан

Поддержать разработчиков LibreOffice можно тут, а наш форум вот тут
sokol92
Форумчанин
***
Offline Offline

Пол: Мужской
Сообщений: 227


WWW
« Ответ #14: 12 Ноябрь 2020, 16:23 »

Можно выделить ячейки, в которые нужно занести гиперссылки, и выполнить макрос SelectionInsertHyperlink

Код:
Option Explicit
Sub SelectionInsertHyperlink
  Dim oCell
  For Each oCell In ThisComponent.CurrentSelection.queryVisibleCells.getCells
    CellInsertHyperLink oCell, ThisComponent
  Next oCell  
End Sub

Sub CellInsertHyperLink(oCell, oDoc)
  Dim oField, s As String, i As Long
  oField = oDoc.createInstance("com.sun.star.text.TextField.URL")
  s=oCell.getString
  i=Instr(1, s, "http")
  If i>0 Then
    oCell.setString Left(s, i-1)
    oField.Url=mid(s, i)
    oField.Representation=oField.Url
    oCell.Text.insertTextContent(oCell.Text.createTextCursor, oField, false)
  End If  
End Sub
« Последнее редактирование: 12 Ноябрь 2020, 16:26 от sokol92 » Записан

Владимир.
Страниц: 1 2 »   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!