raurActiveDocument.Hyperlinks.Add wd.ActiveDocument.Tables.Item(1).Cell(4,2).Range, "C:\Word.doc", , , "file"
Спасибо
Если у тебя так вставляется гиперссылка, то следующей строкой пиши тоже самое, только с другим адресом

ну, а если после твоей строчки : ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
"http://www.mts.ru", SubAddress:="", ScreenTip:="", TextToDisplay:= _
"http://www.mts.ru"
У меня твоя строка не срабатывает...
Stepler ^{(щёлк-щёлк!!)}

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 Stepler Selection.TypeText Text:=" "


идет замещение значений, 1-я ссылка удаляется ,а 2-я пишется
У меня всё работает...
А если убрать строку с " " (это как разделитель между ссылками), тоже замещение ???

raur2 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Признаю себя тормозом,но я все время думал про Эксель....
в нем мона составную ссылку делать типа :
a = "=HYPERLINK("http://www.","первое ")"
b = " & HYPERLINK("mts.ru","второе")"
c = a + b
ActiveCell.FormulaR1C1 = c

или логическую:
ActiveCell.FormulaR1C1 ="=ТЕКСТ(ЕСЛИ(СЕГОДНЯ()<="24.08.2004";ГИПЕРССЫЛКА("http://www.mts.ru";"первое");ГИПЕРССЫЛКА("http://www.mts1.ru";"второе"));)" - чем не две ссылки в одной ячейке в Экселе ???
Stepler ^{(щёлк-щёлк!!)}

fundddВ первом примере бардак с кавычками.
не, я не для VB, а как формула в ячейке....

fundddВ первом примере бардак с кавычками.
если для VB, то:
a = "=HYPERLINK(""http://www."",""первое "")"
b = " & HYPERLINK(""mts.ru"",""второе"")"
c = a + b
ActiveCell.FormulaR1C1 = c
Я просто - о подходе....

так же и логическую на VB:
ActiveCell.FormulaR1C1 = _
"=IF(R[-3]C[-6]=55,HYPERLINK(""http://www.mts.ru"",""первое""),HYPERLINK(""http://www.mts1.ru"",""второе""))"
> funddd
теперя я могу расслабиться или ждать твоих новых замечаний ???


Stepler ^{(щёлк-щёлк!!)}