使用VBA打开PDF上的活动链接

Sub OpenPDFLink()
    Dim acroApp As Object
    Dim acroAVDoc As Object
    Dim acroPDDoc As Object
    Dim link As Object
    
    ' 创建Adobe Acrobat对象
    Set acroApp = CreateObject("AcroExch.App")
    
    ' 打开PDF文档
    Set acroAVDoc = CreateObject("AcroExch.AVDoc")
    If acroAVDoc.Open("path_to_pdf_file", "") Then
        Set acroPDDoc = acroAVDoc.GetPDDoc
        
        ' 遍历所有链接
        For Each link In acroPDDoc.GetLinks
            ' 判断链接类型为活动链接
            If link.GetLinkType = 2 Then
                ' 打开链接
                link.GetAction.Execute
            End If
        Next link
        
        ' 关闭PDF文档
        acroAVDoc.Close True
    End If
    
    ' 退出Adobe Acrobat
    acroApp.Exit
    Set acroApp = Nothing
End Sub