Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Как добавить гиперссылку в Word

Автор: markivanov 23.5.2007, 16:02

Здравствуйте,
Для добавления гиперссылки в Word я использую код

Код


OleContainer1.OleObject.Application.Hyperlinks.Add(
         OleContainer1.OleObject.Application.Selection,
         'название ссылки',
         'http://ukr.net',
         EmptyParam,
         EmptyParam);

Мне выдает ошибку: 'Method hyperlinks' not supported by automation object

Подскажите как добавить гиперссылку

Автор: _hunter 23.5.2007, 16:38

записываем в ворде соответствующий макрос:

Код


    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
        "D:\hunter\Documents\BDS_40_Help\Help.pdf", SubAddress:="", ScreenTip:="" _
        , TextToDisplay:="D:\hunter\Documents\BDS_40_Help\Help.pdf"

и у нас возникае трезонный вопрос: зачем ты пытаешся добавить гиперссылку приложению (если нужно документу) и какой Selection может быть у приложения?..

Автор: markivanov 23.5.2007, 16:58

То что вы написали - не помогло.
В первом сообщении может я не так выразился.
Мне в документе Word нужно добавить слудующую гиперссылку: в документе высвечивается фамилия "Петров", а при нажатии на эту фамилию открывается OutLook с почтовым адресом Петрова

Автор: _hunter 23.5.2007, 18:04

а оно и не должно было помогти. помогти могут только ответы на мои вопросы...
т.е. (если проще говоря) писать нужно что-нить типа:
OleContainer1.OleObject.Application.ActiveDocument.hyperLinks.Add(

Добавлено через 47 секунд
а оно и не должно было помогти. помогти могут только ответы на мои вопросы...
т.е. (если проще говоря) писать нужно что-нить типа:
OleContainer1.OleObject.Application.ActiveDocument.hyperLinks.Add(

Автор: markivanov 24.5.2007, 09:08

а какой должен быть первый параметр? указан тип IDispatch, что нужно передать?

Автор: _hunter 24.5.2007, 11:01

неужели так сложно посмотреть на макрос? первым параметром должно быть Selection.Range (скорее всего это OleContainer1.OleObject.Application.Selection.Range)