заменить текст гиперссылки на прямую ссылку

Автор Sirena, 22 мая 2017, 13:05

0 Пользователи и 1 гость просматривают эту тему.

Sirena

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


JohnSUN

Добро пожаловать на форум!
Боюсь, без файла с образцами данных ответа придётся ждать долго
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

Sirena

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

economist

И все-таки нужен файл, а не его фото.
Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...

Sirena


JohnSUN

Ну, не знаю... Может, как-то так?
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

economist

#6
Функция из файла-примера пост #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

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