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

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

16 Июль 2018, 03:50 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Здесь можно поблагодарить участников форума Улыбка
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: заменить текст гиперссылки на прямую ссылку  (Прочитано 1244 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Sirena
Новичок
*
Offline Offline

Сообщений: 3


« Стартовое сообщение: 22 Май 2017, 13:05 »

Добрый день,
подскажите, пожалуйста, как в calc массово заменить текст типа " ФОТО" гиперссылки на прямую ссылку

Записан
JohnSUN
Капитана в тот день называли на "ты"
Гуру
*******
Offline Offline

Пол: Мужской
Расположение: Киев
Сообщений: 2 495


Помогаю людям и компьютерам понимать друг друга


WWW
« Ответ #1: 22 Май 2017, 13:14 »

Добро пожаловать на форум!
Боюсь, без файла с образцами данных ответа придётся ждать долго
Записан

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне
Sirena
Новичок
*
Offline Offline

Сообщений: 3


« Ответ #2: 22 Май 2017, 13:28 »

имеем прайсы на несколько тысяч наименований
нужно гиперссылку с текстом Фото заменить на эту же ссылку
https://i.gyazo.com/a39474f074f6f0e1907c398dbbfc8f0b.png
Записан
economist
Ветеран
*****
Offline Offline

Сообщений: 901


« Ответ #3: 22 Май 2017, 14:48 »

И все-таки нужен файл, а не его фото.
Записан

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

Сообщений: 3


« Ответ #4: 22 Май 2017, 16:59 »

часть файла

* образец файла.ods (12.71 Кб - загружено 9 раз.)
Записан
JohnSUN
Капитана в тот день называли на "ты"
Гуру
*******
Offline Offline

Пол: Мужской
Расположение: Киев
Сообщений: 2 495


Помогаю людям и компьютерам понимать друг друга


WWW
« Ответ #5: 22 Май 2017, 18:42 »

Ну, не знаю... Может, как-то так?

* СсылкиВссылки.ods (10.96 Кб - загружено 21 раз.)
Записан

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне
economist
Ветеран
*****
Offline Offline

Сообщений: 901


« Ответ #6: 23 Май 2017, 13:53 »

Функция из файла-примера пост #5, см. выше (в OpenOffice - не работает, в LibreOffice - работает отлично).
Привожу для наглядности, и для тех, у кого злые админы и блокируют ссылки на скачиваение (у меня - такие).    

Код:
Function URLfromLink(nRow As Long, nColumn As Long) As String
Dim oSheet As Variant
Dim oCellByPosition As Variant
Dim oTextFields As Variant
Dim sURL As String
sURL = ""
On Error GoTo noResult
oSheet = ThisComponent.getCurrentController().getActiveSheet()
oCellByPosition = oSheet.getCellByPosition(nColumn-1, nRow-1)

oTextFields = oCellByPosition.getTextFields()
If oTextFields.getCount()>0 Then sURL = oTextFields.getByIndex(0).URL
noResult:
URLfromLink = sURL
End Function

« Последнее редактирование: 23 Май 2017, 13:56 от economist » Записан

Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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