access and manipulate a pdf in a word file


  • At work we are creating a timeline of events that references a large series of pdf files. These PDF files are huge i mean the pages go into the 700s in number. to navigate it better i have modified this code
    Sub TestPDFlink()
    Dim IE As Object, strFile As String, iPageNum As Long
    strFile = "C:\Users\Zack\Desktop\OpenPDF\Book1.pdf"
    iPageNum = 2
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Navigate strFile & "#Page=" & iPageNum
    IE.Visible = True
    End Sub
    that I found at http://forums.techguy.org/business-applications/782235-hyperlink-specific-pdf-page-excel.html unfortunately every time i Push the button it opens up a new internet explorer page. I don't mind using Internet explorer to view the pdf but loading a new one everytime is very time consuming as the files are quite large and unfortunately our computers slow. So I was looking for help on optimizing this code, unfortunately my knowledge of VB code has faded since its been a good 8 years since I've messed with this before, what i want the code to do is check to see if the document is open (my guess is

    If (strFile = "C:\Users\Zack\Desktop\OpenPDF\Book1.pdf")=true then

    ipageNum = 3

    but i don't honestly know what i'm doing)  and if it is change the page number, if it is not, then open the pdf in microsoft word

    Wednesday, May 23, 2012 8:48 PM