гиперссылки в word

[In_Progress]

у меня чтобы перейти по гиперссылке в word нужно кликнуть правой кнопкой мыши по ней и выбрать "перейти по гиперссылке".Но это же очень неудобно!Можно ли сделать переход по гиперссылке такой же как в интернете?

[Ципихович Эндрю]

так точно, да можно

[Ципихович Эндрю]

это ж какое понимание, всем всё понятно
а мне вот не понятно как этого добиться в отдельно взятом документе Ворд??, то есть Нормал.дот не трогать

[In_Progress]

так точно, да можно

и как же это делается?

[Sasha_Smirnov]

С прижатой клавишей Ctrl — 1 клик.

[Ципихович Эндрю]

нет, программно
создаём класс модуля
назовём его SelectionPaste
вот его код

Option Explicit

Public WithEvents App As Word.Application
'

Private Sub App_WindowBeforeRightClick(ByVal Sel As Selection, Cancel As Boolean)

'событие нажатие правой кнопки мыши
MsgBox$ "Класс SelectionPaste - Нажата правая кнопка мыши"

End Sub

'нажатие левой кнопки мыши не обрабатывается !!! Private Sub App_WindowBeforeLeftClick(ByVal Sel As Selection, Cancel As Boolean)

Private Sub App_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)

'событие после двойного щелчка левой клавиши мыши
MsgBox$ "Класс SelectionPaste - Двойной щелчок левой клавиши мыши"

End Sub

Private Sub App_WindowSelectionChange(ByVal Sel As Selection)

'проверка на работоспособность
If Len(Selection) <> 0 Then MsgBox$ "Класс SelectionPaste - Выделено"

End Sub

В Нормал.дот имею это:

Sub AutoExec()
'AutoExec работает при запуске Word или загрузке глобального шаблона

'в AutoOpen, AutoExec
'служит для запуска класса SelectionPaste
 Application.Run "Normal.Запуск_класса_модуля_SP.Запуск_класса_модуля_SelectionPaste"     

End Sub

и имею модуль, его код

Option Explicit

'служит для запуска класса модуля SelectionPaste, который служит для запуска процедур при событиях:
'выделение определённого текста в документе
'нажатие правой кнопки мыши
'после двойного щелчка левой клавиши мыши
Dim x As New SelectionPaste
'

Sub Запуск_класса_модуля_SelectionPaste()

    Set x.App = Word.Application

End Sub

как это всё сделать не трогая Нормал.дот, чтобы было в одном документе?
А там решить вопрос автора - пара пустяков