'Sendkeys method is used for simulating keyboard shortcuts. 'Opens a pdf file, at specific page and with specific view. Set PDFDoc = CreateObject("AcroExch.AVDoc")įunction OpenPDFPage(PDFPath As String, PageNumber As Long, PageView As Integer) Set PDFApp = CreateObject("AcroExch.App") 'Initialize Acrobat by creating App object PDFPath = ThisWorkbook.Path & "\" & "PDF Sample.pdf" 'PDFPath = ActivePresentation.Path & "\" & "PDF Sample.pdf" 'PDFPath = ThisDocument.Path & "\" & "PDF Sample.pdf" 'PDFPath = "C:\Program Files\Autodesk\ACADM 2010\Setupen-US\Setup\ResDocsAcad_Mech_2010_UserGuide.pdf" 'Change this to your own complete PDF path 'C:Program FilesAdobeAcrobat xx.0Acrobatacrobat.tlb 'Alternatively you can find it Tools -> References -> Browse and check for the path 9.0 or 10.0) you have installed to your PC. 'on your Acrobat Professional version (i.e. 'Go to Tools -> References -> Adobe Acrobat xx.0 Type Library, where xx depends 'In order to use the macro you must enable the Acrobat library from VBA editor:
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |