Как в одной ячейке сделать несколько гиперссылок


  • raur
    Member
    Откуда:
    Сообщений: 972
    Привет всем

    ActiveDocument.Hyperlinks.Add wd.ActiveDocument.Tables.Item(1).Cell(4,2).Range, "C:\Word.doc", , , "file"

    так я закидываю в 1 ячейку таблицы 1 ссылку
    а как в 1 ячейку закинуть 2 ссылки

    Спасибо

    Stepler
    Member
    Откуда: Северная столица!? (Питер)
    Сообщений: 1433
    raur
    ActiveDocument.Hyperlinks.Add wd.ActiveDocument.Tables.Item(1).Cell(4,2).Range, "C:\Word.doc", , , "file"
    Спасибо

    Если у тебя так вставляется гиперссылка, то следующей строкой пиши тоже самое, только с другим адресом
    raur
    Member
    Откуда:
    Сообщений: 972
    выдает ошибку
    raur
    Member
    Откуда:
    Сообщений: 972
    мне надо именно в эту же ячейку!
    Stepler
    Member
    Откуда: Северная столица!? (Питер)
    Сообщений: 1433
    ну, а если после твоей строчки :
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
    "http://www.mts.ru", SubAddress:="", ScreenTip:="", TextToDisplay:= _
    "http://www.mts.ru"

    У меня твоя строка не срабатывает...
    Stepler (щёлк-щёлк!!) Картинка с другого сайта.
    raur
    Member
    Откуда:
    Сообщений: 972
    Stepler

    У меня твоя строка не срабатывает...

    так как я закидываю в 1 ячейку (ее адрес - cell(4,2)) таблицы 1 ссылку
    а надо в 1 ячейку таблицы закинуть 2 ссылки

    funddd
    Member
    Откуда: Алма-Ата, Казахстан
    Сообщений: 1367
    А добиться ты этим чего хочешь?
    Рукаи так получается сделать?
    raur
    Member
    Откуда:
    Сообщений: 972
    в шаблон из вб-прилож. нужно добавить данные, прога работает с сервером и юзер не участвует в формировании данных. поэтому руками нельзя.
    raur
    Member
    Откуда:
    Сообщений: 972
    funddd
    А добиться ты этим чего хочешь?
    Рукаи так получается сделать?

    конечно, попробуй сам, напиши 2 слова и сделай их гиперссылками.

    Stepler
    Member
    Откуда: Северная столица!? (Питер)
    Сообщений: 1433
    raur
    конечно, попробуй сам, напиши 2 слова и сделай их гиперссылками.

    я бы сделал что-то типа такого:
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
    "http://www.mts.ru", SubAddress:="", TextToDisplay:= _
    "первое слово"
    Selection.TypeText Text:=" "
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
    "http://www.sql.ru/forum/actualfile.aspx?id=899476", SubAddress:="", _
    TextToDisplay:="второе слово"
    raur
    Member
    Откуда:
    Сообщений: 972
    Stepler
    Selection.TypeText Text:=" "

    идет замещение значений, 1-я ссылка удаляется ,а 2-я пишется

    funddd
    Member
    Откуда: Алма-Ата, Казахстан
    Сообщений: 1367
    Откровенно говоря, у меня не получилось руками сделать в одной ячейке 2 гиперссылки. Прошу скриншот.
    Stepler
    Member
    Откуда: Северная столица!? (Питер)
    Сообщений: 1433
    raur
    Stepler
    Selection.TypeText Text:=" "

    идет замещение значений, 1-я ссылка удаляется ,а 2-я пишется


    У меня всё работает...
    А если убрать строку с " " (это как разделитель между ссылками), тоже замещение ???
    raur
    Member
    Откуда:
    Сообщений: 972
    вот скриншот
    К сообщению приложен файл. Размер - 0Kb
    raur
    Member
    Откуда:
    Сообщений: 972
    2 Stepler
    Спасибо разобрался работает через Selection
    Stepler
    Member
    Откуда: Северная столица!? (Питер)
    Сообщений: 1433
    raur
    2 Stepler
    Спасибо разобрался работает через Selection

    Ты имеешь ввиду вот так:
    ActiveDocument.Tables.Item(1).Cell(4, 2).Range.Select
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
    "http://www.mts.ru", SubAddress:="", TextToDisplay:= _
    "первое слово"
    Selection.TypeText Text:=" "
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
    "http://www.sql.ru/forum/actualfile.aspx?id=899476", SubAddress:="", _
    TextToDisplay:="второе слово"

    Я думал ты енто знаешь....
    funddd
    Member
    Откуда: Алма-Ата, Казахстан
    Сообщений: 1367
    Признаю себя тормозом,но я все время думал про Эксель....
    Stepler
    Member
    Откуда: Северная столица!? (Питер)
    Сообщений: 1433
    funddd
    Признаю себя тормозом,но я все время думал про Эксель....

    в нем мона составную ссылку делать типа :
    a = "=HYPERLINK("http://www.","первое ")"
    b = " & HYPERLINK("mts.ru","второе")"
    c = a + b
    ActiveCell.FormulaR1C1 = c
    Stepler
    Member
    Откуда: Северная столица!? (Питер)
    Сообщений: 1433
    или логическую:
    ActiveCell.FormulaR1C1 ="=ТЕКСТ(ЕСЛИ(СЕГОДНЯ()<="24.08.2004";ГИПЕРССЫЛКА("http://www.mts.ru";"первое");ГИПЕРССЫЛКА("http://www.mts1.ru";"второе"));)"Картинка с другого сайта.- чем не две ссылки в одной ячейке в Экселе ???
    Stepler (щёлк-щёлк!!) Картинка с другого сайта.
    funddd
    Member
    Откуда: Алма-Ата, Казахстан
    Сообщений: 1367
    В первом примере бардак с кавычками.
    Stepler
    Member
    Откуда: Северная столица!? (Питер)
    Сообщений: 1433
    funddd
    В первом примере бардак с кавычками.

    не, я не для VB, а как формула в ячейке....
    Stepler
    Member
    Откуда: Северная столица!? (Питер)
    Сообщений: 1433
    funddd
    В первом примере бардак с кавычками.

    если для VB, то:
    a = "=HYPERLINK(""http://www."",""первое "")"
    b = " & HYPERLINK(""mts.ru"",""второе"")"
    c = a + b
    ActiveCell.FormulaR1C1 = c

    Я просто - о подходе....
    Stepler
    Member
    Откуда: Северная столица!? (Питер)
    Сообщений: 1433
    так же и логическую на VB:
    ActiveCell.FormulaR1C1 = _
    "=IF(R[-3]C[-6]=55,HYPERLINK(""http://www.mts.ru"",""первое""),HYPERLINK(""http://www.mts1.ru"",""второе""))"

    > funddd
    теперя я могу расслабиться или ждать твоих новых замечаний ???Картинка с другого сайта.

    Stepler (щёлк-щёлк!!) Картинка с другого сайта.

    funddd
    Member
    Откуда: Алма-Ата, Казахстан
    Сообщений: 1367
    Мое последнее замечание уже было приколом
    я, это, не злой... и не зануда
    Виртуальные форумы   Темы из всех форумов за 3 дня   Мои избранные форумы Использование СУБД   Microsoft SQL Server   Firebird, InterBase   Oracle   Microsoft Access   IBM DB2, WebSphere, IMS, U2, etc   MySQL   PostgreSQL   OLAP и DWH   Sybase ASA, ASE, IQ   Informix   Другие СУБД   FoxPro, Visual FoxPro   Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M   SQLite   NoSQL, Big Data Дискуcсии   Сравнение СУБД   Проектирование БД   Работа   ERP и учетные системы   Разработка информационных систем   Тестирование и QA   Отчетные системы   Просто треп   Наши за рубежом   Сертификация и обучение   Hardware   Управление процессом разработки ИС   Юридические вопросы в ИТ Microsoft.NET   WinForms, .Net Framework   ASP.NET   ADO.NET, LINQ, Entity Framework, NHibernate, DAL, ORM   WPF, Silverlight   WCF, Web Services, Remoting Программирование   Delphi   C++   Visual Basic   Программирование   Java   Разработка под мобильные платформы   PowerBuilder   Microsoft Office   SharePoint   XML, XSL, XPath, XQuery Web Технологии   PHP, Perl, Python   HTML, JavaScript, VBScript, CSS Администрирование ОС   Windows   Unix-системы   Другие: Mac OS, PalmOS, BeOS, PocketPC SQL.RU   Обсуждение нашего сайта   Вопрос-Ответ   Test



    Рекомендуем посмотреть ещё:


    Закрыть ... [X]

    Гиперссылка для окрытия сразу нескольких документов - Мир MS Excel Как сделать рассаду огурцов пошаговый совет

    Как в одной ячейке сделать несколько гиперссылок Как в одной ячейке сделать несколько гиперссылок Как в одной ячейке сделать несколько гиперссылок Как в одной ячейке сделать несколько гиперссылок Как в одной ячейке сделать несколько гиперссылок Как в одной ячейке сделать несколько гиперссылок

    Похожие новости