Question

我需要开发一个简单的excel vba应用程序来进行一些数据验证。我有带有员工信息的excel文件，我需要根据源文档验证该信息（pdf文件）。 excel中的信息按员工姓名分组。

是否可以编写将打开指定pdf文件的VBA脚本，然后允许用户搜索员工姓名，以便pdf跳转到相应的员工页面？（每个员工在pdf文档中都有一个单独的页面。）一旦进入员工页面，用户将查看数据，对excel文件进行必要的编辑，然后搜索下一个员工。

我相信我可以使用：

Sub NavigatePDF()

ThisWorkbook.FollowHyperlink "c:\user\target.pdf"

End Sub

打开一个pdf文件，但是一旦我打开文件，我就不知道如何从excel vba发出搜索。

任何人都可以提供任何建议或指向我一些有用的资源。

Answer 1

其他一些研究产生了由Christos Samaras撰写的应用程序。该工具使用excel vba打开指定的PDF，然后突出显示提供的搜索词。可能唯一的缺点是需要Adobe PDF Pro - 该代码不适用于Acrobat Reader。

以下是link和代码：

Option Explicit

Sub FindTextInPDF()

    '----------------------------------------------------------------------------------------
    'This macro can be used to find a specific TEXT (more than one word) in a PDF document.
    'The macro opens the PDF, finds the specified text (the first instance), scrolls so
    'that it is visible and highlights it.
    'The macro uses the FindText method (see the code below for more info).

    'Note that in some cases it doesn't work (doesn't highlight the text), so in those
    'cases prefer the SearchTextInPDF macro, if you have only ONE WORD to find!

    'The code uses late binding, so no reference to external library is required.
    'However, the code works ONLY with Adobe Professional, so don't try to use it with
    'Adobe Reader because you will get an "ActiveX component can't create object" error.

    'Written by:    Christos Samaras
    'Date:          04/05/2014
    'e-mail:        xristos.samaras@gmail.com
    'site:          http://www.myengineeringworld.net
    '----------------------------------------------------------------------------------------

    'Declaring the necessary variables.
    Dim TextToFind  As String
    Dim PDFPath     As String
    Dim App         As Object
    Dim AVDoc       As Object

    'Specify the text you wawnt to search.
    'TextToFind = "Christos Samaras"
    'Using a range:
    TextToFind = ThisWorkbook.Sheets("PDF Search").Range("C5").Value

    'Specify the path of the sample PDF form.
    'Full path example:
    'PDFPath = "C:\Users\Christos\Desktop\How Software Companies Die.pdf"
    'Using workbook path:
    'PDFPath = ThisWorkbook.Path & "\" & "How Software Companies Die.pdf"
    'Using a range:
    PDFPath = ThisWorkbook.Sheets("PDF Search").Range("C7").Value

    'Check if the file exists.
    If Dir(PDFPath) = "" Then
        MsgBox "Cannot find the PDF file!" & vbCrLf & "Check the PDF path and retry.", _
                vbCritical, "File Path Error"
        Exit Sub
    End If

    'Check if the input file is a PDF file.
    If LCase(Right(PDFPath, 3)) <> "pdf" Then
        MsgBox "The input file is not a PDF file!", vbCritical, "File Type Error"
        Exit Sub
    End If

    On Error Resume Next

    'Initialize Acrobat by creating the App object.
    Set App = CreateObject("AcroExch.App")

    'Check if the object was created. In case of error release the object and exit.
    If Err.Number <> 0 Then
        MsgBox "Could not create the Adobe Application object!", vbCritical, "Object Error"
        Set App = Nothing
        Exit Sub
    End If

    'Create the AVDoc object.
    Set AVDoc = CreateObject("AcroExch.AVDoc")

    'Check if the object was created. In case of error release the objects and exit.
    If Err.Number <> 0 Then
        MsgBox "Could not create the AVDoc object!", vbCritical, "Object Error"
        Set AVDoc = Nothing
        Set App = Nothing
        Exit Sub
    End If

    On Error GoTo 0

    'Open the PDF file.
    If AVDoc.Open(PDFPath, "") = True Then

        'Open successful, bring the PDF document to the front.
        AVDoc.BringToFront

        'Use the FindText method in order to find and highlight the desired text.
        'The FindText method returns true if the text was found or false if it was not.
        'Here are the 4 arguments of the FindText methd:
        'Text to find:          The text that is to be found (in this example the TextToFind variable).
        'Case sensitive:        If true, the search is case-sensitive. If false, it is case-insensitive (in this example is True).
        'Whole words only:      If true, the search matches only whole words. If false, it matches partial words (in this example is True).
        'Search from 1st page:  If true, the search begins on the first page of the document. If false, it begins on the current page (in this example is False).
        If AVDoc.FindText(TextToFind, True, True, False) = False Then

            'Text was not found, close the PDF file without saving the changes.
            AVDoc.Close True

            'Close the Acrobat application.
            App.Exit

            'Release the objects.
            Set AVDoc = Nothing
            Set App = Nothing

            'Inform the user.
            MsgBox "The text '" & TextToFind & "' could not be found in the PDF file!", vbInformation, "Search Error"

        End If

    Else

        'Unable to open the PDF file, close the Acrobat application.
        App.Exit

        'Release the objects.
        Set AVDoc = Nothing
        Set App = Nothing

        'Inform the user.
        MsgBox "Could not open the PDF file!", vbCritical, "File error"

    End If

End Sub

使用excel vba打开PDF文件并执行文本搜索

1 个答案: