Microsoft Word documents can contain individual pages that would be better suited in their own documents. For example, a document may contain dozens of pages of forms, each of which much go to a separate department for processing. To extract an individual page, you can copy it into a blank file. To extract all of a document's pages, you must copy and paste each of its files, which can take a lot of time and effort. However, you can automate the extraction process by writing a Visual Basic macro.
1.
Press 'Alt-F11' to open Word's Visual Basic editor.
Thirdly, click “View” tab. Then click “Outline” in “Document Views”. Now under “Outlining” tab, go to “Outline Tools” group, and choose the level of your mark words on the drop-list of “Show level”. Here, we shall choose “Level 1” for we just set them in “Heading 1”. And all texts in level 1 will be displayed. Save Pages of a Document as Separate Documents. Ask Question 5. I am currently using MS-Word 2007 (.docx) format. I have a Word Document with the following Pages: Page 1: Event Details. How to save an individual page in a Word 2010 document as a separate document?
2.
Click the 'NewMacros' module in the Project window's Modules folder, if Word does not open it automatically.
3.
Type the following to open a new macro:
Sub mcrExtractPages()
4.
Add the following code to set the macro to browse through the document by page:
Application.Browser.Target = wdBrowsePage
5.
Add the following code, which opens a loop that runs on each page in the document:
For i = 1 To ActiveDocument.BuiltInDocumentProperties('Number of Pages')
6.
Add the following to copy the selected page's contents:
ActiveDocument.Bookmarks('page').Range.Copy
7.
Add the following code to create a new document:
Documents.Add
8.
Add the following code to paste the copied code into the new document:
Selection.Paste
9.
Add the following code to set the directory where Word will save the extracted pages:
ChangeFileOpenDirectory 'C:UsersRyanDocuments'
10.
Change 'C:UsersRyanDocuments' to whichever directory you want.
11.
Add the following code to save the new document as a new file in the chosen directory:
Change 'ExtractedPage_' to whatever name you want to assign the extracted pages.
13.
Add the following code to close the new document and move to the main document's next page:
ActiveDocument.Close Application.Browser.Next
14.
Add the following code to close the loop:
Next i
15.
Add the following code to close the macro:
End Sub
Tip
Save the macro once you have extracted your pages. In the future, you can run the saved macro to extract further documents' pages.
References (2)
Resources (1)
About the Author
Ryan Menezes is a professional writer and blogger. He has a Bachelor of Science in journalism from Boston University and has written for the American Civil Liberties Union, the marketing firm InSegment and the project management service Assembla. He is also a member of Mensa and the American Parliamentary Debate Association.
Photo Credits
Jupiterimages/Photos.com/Getty Images
Cite this Article
Choose Citation Style
Menezes, Ryan. 'How to Extract Pages From a Microsoft Word Document.' Small Business - Chron.com, http://smallbusiness.chron.com/extract-pages-microsoft-word-document-46792.html. Accessed 10 November 2019.
Menezes, Ryan. (n.d.). How to Extract Pages From a Microsoft Word Document. Small Business - Chron.com. Retrieved from http://smallbusiness.chron.com/extract-pages-microsoft-word-document-46792.html
Menezes, Ryan. 'How to Extract Pages From a Microsoft Word Document' accessed November 10, 2019. http://smallbusiness.chron.com/extract-pages-microsoft-word-document-46792.html
Note: Depending on which text editor you're pasting into, you might have to add the italics to the site name.