Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Save pages as individual documents
How do I save a 191 page document as 191 one-page documents?
|
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Save pages as individual documents
Here is some macro code that will help you...
If you need help in using the code below, then see http://www.gmayor.com/installing_macro.htm Sub CopyEachPageToAFile() 'written by dian@mousetrax 'PURPOSE: copies each page in a doc to a newly saved file 'declare vars Dim intPageNum As Integer Dim i As Integer 'find out how many pages you have in the doc intPageNum = ActiveDocument.BuiltInDocumentProperties(wdPropert yPages) 'turn off screen updating Application.ScreenUpdating = False 'from 1 to max pages, do the following For i = 1 To intPageNum 'go to next page (increments with each pass) Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, Count:=i 'select the current page ActiveDocument.Bookmarks("\Page").Range.Select 'copy the page (current selection) Selection.Copy 'open a new blank page Documents.Add DocumentType:=wdNewBlankDocument 'dump in copy from clipboard Selection.Paste 'save the file with some name and current number ActiveDocument.SaveAs "myFile" & i 'close this new doc ActiveDocument.Close 'go to next page and do it again Next i 'turn updating back on Application.ScreenUpdating = True End Sub -- Dawn Crosier Microsoft MVP "Education Lasts a Lifetime" This message was posted to a newsgroup, Please post replies and questions to the group so that others can learn as well. "Chase" wrote in message ... How do I save a 191 page document as 191 one-page documents? |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Save pages as individual documents
While Dawn's macro may suffice, Word is not a page layout application so the
results may not be what you expect. If this is a merge that you are splitting see - http://www.gmayor.com/individual_merge_letters.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Chase wrote: How do I save a 191 page document as 191 one-page documents? |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to save individual HTML pages? | Microsoft Word Help | |||
save mass merged documents as seperate, individual letters | Mailmerge | |||
import individual record frm excel in individual word pages | Mailmerge | |||
how to save a single page from a five pages documents? | Microsoft Word Help | |||
Can you save individual document pages as seperate word files? | Mailmerge |