Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
20 сен 2021, 04:14

Вставка гиперссылки в документ.

Автор Serebrum, 05 дек 2016, 11:33

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

Serebrum

Доброго времени суток. Идей куча, а программирую пока слабовато))
Платформа 8.3.7, конфигурация УТ 10.3.35.1.

Есть идея. При выгрузке прайса в Excel напротив номенклатуры хочу вставить ссылку на эту номенклатуру на сайте.
Сделал реквизит "НаСайте" в карточке номенклатуры типа Строка. Туда вставляю полный адрес (постоянный) страницы с описанием товара.
По кнопке Открыть, открывает браузер поумолчанию со страницей описания товара. Всё нормально.
При формировании прайса в доп. поле выводится строка с адресом этого товара. Но выглядит как текст, а не ссылка (хотя адрес полный).

В Excel при вставке такого адреса в ячейку, он тоже вставляется, как текст, а не гиперссылка, но, при нажатии Enter, текст преобразуется в кликабельную гиперссылку, изменив наименование и описание которой, можно получить слово, по клике на которое откроется сайт.
В Экселе выглядит это следующим образом (ориентироваться по выделенным ячейкам):
Рисунок-1: Вид гиперссылки после преобразования из текстовой строки по Enter.
Рисунок-2: Вид гиперссылки при изменении заголовка ссылки. "На сайте". При этом адрес ссылки не изменился.
Рисунок-3: Вид гиперссылки при изменении описания ссылки. "Открыть описание на сайте". При этом адрес ссылки не изменился.

Нужно, чтобы в 1С при выгрузке прайса строка адреса преобразовывалась в гиперссылку с наименованием "На сайте" и описанием "Открыть описание на сайте".
В Экселе это преобразование можно сделать макросом (сам записывал и смотрел код макроса):
    Sub
    ActiveCell.FormulaR1C1 = _
        "http://сайт/товар.html"
    Range("B6").Select //переход по enter
    ActiveCell.FormulaR1C1 = "На сайте" //Визуальный заголовок в ячейке
    Range("B6").Select //переход по enter
    Selection.Hyperlinks(1).ScreenTip = "Открыть описание на сайте" // Подсказка к тексту-ссылке
    End Sub

Судя по всему "Range("B6").Select" это результат нажатия Enter (для преобразования текста в ссылку) и перехода в следующую ячейку (автоматом при вводе).
Так вот. Суть в том, как заставить 1С по подобию этого макроса преобразовывать текст в кликабельную гиперссылку с заданным заголовком и описанием?
Или есть какой-то внутриодинэсный способ вставлять в документ уже готовую гиперссылку с заданным заголовком и описанием?

Похожие темы (5)

Рейтинг@Mail.ru Rambler's Top100

Поиск