![]() Download the PDF from a List of URLs/Open the PDF to a specified folder (if necessary).Set AcroXAVDoc = CreateObject("AcroExch.AVDoc") Set AcroXApp = CreateObject("AcroExch.App") Sub convertpdf2() Dim AcroXApp As Acrobat.AcroApp Set fileStream = fso.CreateTextFile(filePath, overwrite:=True, Unicode:=True)Īs for developing this script, I have the following from what I have found online, which now successfully performs the conversion using Acrobat for the previously difficult PDF so Good start. On Error Resume Next 'ignore error if no document.įilePath = fileRoot
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |