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

[Sirena]

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

[JohnSUN]

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

[Sirena]

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

[economist]

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

[Sirena]

часть файла

[JohnSUN]

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

[economist]

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