Гиперссылка на первую страницу

[Илан]

Здравствуйте. Есть рабочий код по вставке гиперссылки в рисунок:

Sub mmm()
Dim hPic As Object
For i = 1 To 2
Set hPic = ActiveDocument.InlineShapes(1)
hPic.Select
With Selection
.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
      "http://sss.fatal.ru/", SubAddress:="", ScreenTip:="", _
      TextToDisplay:="fatalist"
  Selection.Collapse Direction:=wdCollapseEnd
End With
Next
End Sub

Что нужно указать в поле Address:=, чтобы гиперссылка переводила на первую страницу документа



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

чисто любопытства ради...
а если так?

hPic.Select
With Selection
.Hyperlinks.Add Anchor:=Selection.Range, _
      Address:="", SubAddress:="_top", _
      ScreenTip:="", TextToDisplay:="к началу документа"
  Selection.Collapse Direction:=wdCollapseEnd
End With

должен быть переход на начало документа

[Sasha_Smirnov]

И, чтоб добру не пропадать, http://programmersforum.ru/showthread.php?t=47963