如何用VBA在已有Adobe Acrobat窗口中以新标签打开PDF

你的代码每次都会创建新的Acrobat应用和文档实例，因此每次打开都会生成独立窗口。要在已有窗口的新标签中打开PDF，需要先尝试获取运行中的Acrobat实例，再调用对应API实现标签式打开，修改后的代码如下：

Sub OpenPDFInExistingWindow(sPath As String)
    Dim appAdobe As Object
    Dim pdDoc As Object
    Dim avDoc As Object
    
    ' 先尝试获取已有的Acrobat应用实例
    On Error Resume Next
    Set appAdobe = GetObject(, "AcroExch.App")
    On Error GoTo 0
    
    ' 如果没有运行中的实例，再创建新的
    If appAdobe Is Nothing Then
        Set appAdobe = CreateObject("AcroExch.App")
        appAdobe.Show
    End If
    
    ' 以PDDoc对象打开目标PDF
    Set pdDoc = CreateObject("AcroExch.PDDoc")
    If pdDoc.Open(sPath) Then
        ' 获取当前活动的文档窗口
        Set avDoc = appAdobe.GetActiveDoc
        
        ' 已有活动窗口时，用OpenInWindowEx在新标签打开
        If Not avDoc Is Nothing Then
            avDoc.OpenInWindowEx pdDoc, 0, 0, 0, 0, 0
        Else
            ' 无活动窗口时，直接打开为新窗口（首次启动场景）
            Set avDoc = CreateObject("AcroExch.AVDoc")
            avDoc.Open sPath, ""
            avDoc.BringToFront
        End If
        
        pdDoc.Close
    End If
    
    ' 释放对象
    Set pdDoc = Nothing
    Set avDoc = Nothing
    Set appAdobe = Nothing
End Sub

关键修改说明： #

• 用GetObject(, "AcroExch.App")获取已运行的Acrobat实例，避免重复创建应用进程
• 利用OpenInWindowEx方法，将PDDoc对象在当前窗口的新标签中打开
• 兼容两种场景：已有打开的Acrobat窗口、首次启动无窗口的情况

额外注意： #

• 确保Adobe Acrobat已默认安装VBA组件
• 传入的sPath必须是PDF文件的完整绝对路径，避免相对路径引发错误
• 如果Acrobat默认设置为“在新窗口打开每个文档”，需先在Acrobat首选项中修改：编辑→首选项→文档→勾选“在同一窗口中打开新文档”

内容的提问来源于stack exchange，提问作者Logan Price