islamjae.blogg.se

XEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)ĪctiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _ If 圎ndPage > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Then

MsgBox "The start page number can't be larger than end page", vbInformation, "Kutools for Word" MsgBox "The enterng start page and end page should be number format", vbInformation, "Kutools for Word" If Not (IsNumeric(xStartPageStr) And IsNumeric(圎ndPageStr)) Then XEndPageStr = InputBox("Save PDFs until page _?" & vbNewLine & "(ex: 7)", "Kutools for Word") XStartPageStr = InputBox("Begin saving PDFs starting with page _? " & vbNewLine & "(ex: 1)", "Kutools for Word") MsgBox "Please chose a valid directory", vbInformation, "Kutools for Word" Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker) VBA code: Save each page as separate pdf files at the same time in a Word document Sub SaveAsSeparatePDFs()

In the Microsoft Visual Basic for Applications window, click Insert > Module, copy below VBA code into the Module window. Open the document you will save each page or specific pages as pdf files, then press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.Ģ. The below VBA code helps you to quickly save each page in a document as individual pdf files at the same time. Save each page as separate pdf files in bulk with VBA code However, if there are hundreds of pages need to be split and saved as individual pdf files, how can you do? This article provides method for you to quickly solve this problem. While using Microsoft Word document, you can save each page as separate pdf files one by one with its build-in Save As function. How to save each page as separate pdf files in a Word document?