12/7/2022 0 Comments My word document is frozen![]() ![]() MsgBox "Please enter the page number:", vbInformation, "Kutools for Word" VbCrLf & vbCrLf & " Please enter the page count you want to split:", "Kutools for Word", xSplit) ![]() L1: xSplit = InputBox("The document contains " & xPageCount & " pages." & _ Set xNewDoc = Documents.Add(Visible:=False) If TypeName(xFolder) = "Nothing" Then Exit Sub Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0) Set xShell = CreateObject("Shell.Application") VBA code: Split a document into separate files every 10 or n pages: Sub DocumentSplitter()ĭim xDoc As Document, xNewDoc As Documentĭim xSplit As String, xCount As Long, xLast As Longĭim xRngSplit As Range, xDocName As String, xFileExt As Stringĭim xShell As Object, xFolder As Object, xFolderItem As Object ![]() And then, click Insert > Module, copy and paste below code into the opened blank module: Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.Ģ. To split a large document into separate files based on every 10 or n pages, the following VBA code can do you a favor, please do as this:ġ. Split a Word document into separate files every 10 or n pages with an amazing feature Split a Word document into separate files every 10 or n pages with VBA code Is there any quick and easy way for solving this job without copying and pasting the pages one by one? If you have a large Word document which contains hundreds pages, and now, you would like to split this document into separate files every 10 or n pages. How to split a Word document into separate files every 5 or n pages? ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. Archives
December 2022
Categories |