У меня есть этот модуль от Ульф Джердинген :
Dim targetLink As String
Dim targetName As String
Dim pageNumber As Integer
Dim pathPDF As String
targetName = Selection.Hyperlinks(1).Name
parts = Split(targetName, "page=")
pageNumber = parts(1)
pathPDF = Selection.Hyperlinks(1).Address
Call OpenPagePDF(pathPDF, pageNumber)
Public Function OpenPagePDF(sMyPDFPath As String, iMyPageNumber As Integer)
Dim RtnCode, AdobePath As String
AdobePath = "Path to Acrobat Reader"
RtnCode = Shell(AdobePath & " /a " & Chr(34) & "page=" & iMyPageNumber & "=OpenActions" & Chr(34) & " " & Chr(34) & sMyPDFPath & Chr(34), 1)
End Function
Модуль работает как чарм, но я хочу запустить модуль, если кто-то нажмет любую гиперссылку в файле слов.
Есть ли событие, которое я могу запечатлеть для этого? Я не могу найти что-либо в ссылке для этого. Я использую Word 2010.
Спасибо