Save word page by page

I have a Word Document that I needed to save each page as a individual Document in Rich Text Format. You can change the variables for a .txt file, docx file, etc., as needed, but remember to change the FileFormat=.
Note that this starts at the current page you are on Application.Browser.Target = wdBrowsePage and continues thru a loop for the next 99 pages (100 total).

You can modify the macro to fit your need.

The variable i represents the file number (DCX_1.Rtf) (DCX_2.Rtf) etc.

For i = 1 To 100
    Application.Browser.Target = wdBrowsePage
    ActiveDocument.Bookmarks("page").Range.Copy
    Documents.Add
    Selection.Paste
    ChangeFileOpenDirectory "C:__BOOKJUNK"
    ActiveDocument.SaveAs FileName:="DCX_" & i & ".rtf", FileFormat:=wdFormatRTF
    ActiveDocument.Close
    Application.Browser.Next
Next i

Separate Word pages. Extract pages from Word

Word Splitter Online

Extract pages from Word documents, split Word pages as separate files. Word Splitter is the ultimate online document splitting service. Using it, you can quickly divide your Word documents into smaller parts, making it easy to manage and organize your data. It’s easy to use and completely free.

Word Splitter is a perfect tool for a wide range of tasks, including:

• Breaking up large Word documents into smaller, manageable files
• Simplifying collaboration on large Word documents
• Organizing Word pages according to various criteria
• Preparing Word documents for printing or distribution
• Creating digital booklets or catalogs

Split Word into parts online

You can choose from several Word splitting modes:

• Split Word by every page — in this mode, each Word page will be saved as a separate file
• Split Word by even and odd pages — in this mode, even numbered pages will be saved in one file and odd numbered pages in another
• Split Word by every N pages — in this mode, your Word document will be divided into sections of N pages each
• Split Word by a page number — in this mode, your Word document will be divided into two parts according to the specified page number

Extract pages from Word online

There is also a special mode — Extract Word pages by ranges — that allows you to extract specific page ranges from a Word document. You can specify multiple page ranges for the Word file, and each of them will be saved in a separate document.

In today’s post, we want to share with you 2 quick ways to extract individual pages from your Word document.

Sometimes in a Word document, each page may contain quite independent contents, such as a table. And you will probably need to send different tables to different people. Then you will have to save each table that is each page, as a separate file.

The first idea occurs to our mind should be the classic copy-and-paste. Yet, anything involves selection can be annoying sometimes, for to drag and select can easily make one ends with no selection at all. For this reason, we recommend you 2 quick methods using macro to do the job.

Method 1: Extract Current Page and Save it as a New Document

1. First and foremost, position your cursor at the page you want to extract.
2. Click “Developer” tab and then click “Visual Basic” to invoke the VBA editor. If the “Developer” is not activated, simply press “Alt+ F11” instead.
3. Secondly, go to “Normal” project by clicking it.
4. Next click “Insert” tab and choose “Module”.
5. Double click on the new module to open the editing area.
6. Then paste the following codes there:

Sub SaveCurrentPageAsANewDoc()
  Dim objNewDoc As Document
  Dim objDoc As Document
  Dim strFileName As String
  Dim strFolder As String
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  strFolder = InputBox("Enter folder path here: ")
  strFileName = InputBox("Enter file name here: ")
 
  '  Copy current page.
  objDoc.Bookmarks("Page").Range.Select
  Selection.Copy
 
  '  Open a new document to paste the selection.
  Set objNewDoc = Documents.Add
  Selection.Paste
 
  objNewDoc.SaveAs FileName:=strFolder & "" & strFileName & ".docx"
  objNewDoc.Close
End Sub

1. Lastly, click “Run” button.

Now there will be 2 input boxes. Enter the path where you want to store the new document on the first input box. And enter the new document name on the second one.

Method 2: Extract Each Page and Save it as a New Document

The following macro will enable you to extract each individual page of a document.

1. Firstly, press “Ctrl+ Home” to go to the very beginning of your document.
2. Then follow the same steps in method 1 to install and run a macro.
3. This time replace the macro with this one:

Sub SaveEachPageAsADoc()
  Dim objNewDoc As Document
  Dim objDoc As Document
  Dim nPageNumber As Integer
  Dim strFolder As String
  Dim objFileName As Range
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  strFolder = InputBox("Enter folder path here: ")
 
  '  Copy each page in the document to paste it into a new one.
  For nPageNumber = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages)
    Application.Browser.Target = wdBrowsePage
    ActiveDocument.Bookmarks("page").Range.Select
    Selection.Copy
 
    Set objNewDoc = Documents.Add
    Selection.Paste
 
    '  Save new doc with the name of "Page" & nPageNumber and get the first 20 characters of the new doc as part of the file name.
    Set objFileName = objNewDoc.Range(Start:=0, End:=20)
    objNewDoc.SaveAs FileName:=strFolder & "" & "Page " & nPageNumber & " " & objFileName & ".docx"
    objNewDoc.Close
    Application.Browser.Next
  Next nPageNumber
End Sub

Deal with Word Issues

There are and always will be various Word issues. The point is to learn to fix them properly. The most recommended way is, of course, to get a sophisticated Word recovery tool. You should seize every minute to recover your data before it’s too late.

Author Introduction:

Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including corrupt xlsx and pdf repair software products. For more information visit www.datanumen.com