![]() Also, there are some alternatives for Windows, Mac, and Online users. Check this article for the proper procedure to combine PDF with Foxit. Though the market is brimming with options, the Foxit PhantomPDF is the top choice. ![]() However, stable and efficient PDF merger is required to complete the task. Even sharing several PDF files one by one is challenging, so combining them will be pretty helpful. Set phCreator = CreateObject("FoxitExch.Creator")Ĭall phCreator.Do you need to merge various documents into one file? Combining PDF files makes it easier to organize the files with relevant information in one place, rather than accessing multiple PDFs at the moment. ODoc.Close (True) ' close lower level drawings If InStr(1, filelist, FileName, 1) = 0 Then ' If file was open at start, do not close it. 'oPDFOptions.Value("Custom_End_Sheet") = 4Ĭall PDFAddIn.SaveCopyAs(oDoc, oPDFContext, oPDFOptions, oPDFDataMedium)įileName = Right(idwpathname, Len(idwpathname) - InStrRev(idwpathname, "\")) 'oPDFOptions.Value("Custom_Begin_Sheet") = 2 OPDFOptions.Value("Sheet_Range") = kPrintAllSheets 'oPDFOptions.Value("Vector_Resolution") = 400 OPDFOptions.Value("Remove_Line_Weights") = 0 OPDFOptions.Value("All_Color_AS_Black") = 0 If PDFAddIn.HasSaveCopyAsOptions(oDoc, oPDFContext, oPDFOptions) Then ![]() ' Check whether the translator has 'SaveCopyAs' options OPDFContext.Type = kFileBrowseIOMechanism 'Set a reference to the active document (the document to be published). If IsFileLocked(pdfpathname) = False Then Check that it is not open in another application.", vbRetr圜ancel) Do you want to replace this file?", vbOKCancel, "Overwrite?") = vbCancel ThenĪ = MsgBox("File "
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |