Kofax Power PDF VBA自动化：正确DLL引用及可用代码方案

• 正确的DLL引用路径：C:\Program Files (x86)\Kofax\Power PDF 31\bin\PDFCore8_x64.dll
• 关键提示：尽管软件名为Power PDF，且官方文档提示使用powerpdf.app创建对象，但实际测试中通过nuancePDF.App和nuancePDF.DVDoc创建对象可正常运行。

可用VBA代码示例 #

Function copy_pdf_values_with_nuance(path As String) As String
    
    Dim PDFApp As Object
    Dim dvOpenDoc As Object
    Dim ddDoc As Object
    

    Set PDFApp = CreateObject("nuancePDF.App")
    Set dvOpenDoc = CreateObject("nuancePDF.DVDoc")
    
    
    If dvOpenDoc.Open(path) = False Then
        PDFApp.Exit
        Exit Function
    End If
        
    Set ddDoc = dvOpenDoc.GetDDDoc()
    PDFApp.MenuItemExecute ("SelectAll")
    PDFApp.MenuItemExecute ("Copy")
    
    PDFApp.Exit
    
    ' 以下为自定义文本选区的示例代码，如需精准提取特定区域可取消注释使用
    ' Set ddPage = ddDoc.AcquirePage(0)
    ' Set hl = CreateObject("NuancePDF.HiliteList")
    
    ' hr = hl.Add(12, 1)
    ' hr = hl.Add(52, 2)
    ' Set ts = ddPage.CreatePageHilite(hl)
    ' hr = dvOpenDoc.SetTextSelection(ts)
    ' dvOpenDoc.ShowTextSelect

    Dim clipboard As MSForms.DataObject
    Dim strContents As String
    
    Set clipboard = New MSForms.DataObject
    clipboard.GetFromClipboard
    strContents = clipboard.GetText
    
    copy_pdf_values_with_nuance = strContents
End Function

代码说明 #

这段代码通过启动Nuance PDF应用、打开目标PDF、模拟全选复制操作，最终从剪贴板获取PDF文本内容并返回，可有效解决常见的引用错误问题，实现PDF内容的提取。

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