следуя гиперссылке активного документа Dim
|
Public Sub FollowHyperlinks() ' Переход по запросу, следуя гиперссылке активного документа Dim MyHL As Hyperlink Dim Answer As String,NameHL As String With ActiveDocument For Each MyHL In .Hyperlinks 'определение объекта, с которым связана гиперссылка If MyHL.Type = msoHyperlinkRange Then NameHL = MyHL.Range.Text Else:NameHL = MyHL.Shape.Name End If Answer = InputBox(Prompt:="Перейти, следуя гиперссылке? " ;amp; vbCrLf _ & "связана с объектом - " &NameHL & vbCrLf _ & "Имя целевого документа - " & MyHL.Address & vbCrLf _ & "Имя целевого элемента - " & MyHL.SubAddress, _ Title:="Переход по гиперссылке", Default:="Да") If Answer = "Да" Then MyHL.Follow MsgBox ("Продолжаем работать!") Exit For End If Next MyHL End With End Sub |
| Листинг 1.44. |
| Закрыть окно |
