Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.pagelayout
|
|||
|
|||
How do I put each page into a new document in Word 2003?
I just want to make a new document out of each page. So at the end I will
have n number of documents where there were n number of pages in my original document, with each document having one page. I looked up how to do this and I tried the thumbnail view method but it didn't work, at least not in Word 2003. If anyone could give advice that would be great. Thanks |
#2
Posted to microsoft.public.word.pagelayout
|
|||
|
|||
How do I put each page into a new document in Word 2003?
Use the following macro
Sub splitter() ' ' splitter Macro ' Macro created 16-08-98 by Doug Robbins to save each page of a document ' as a separate file with the name Page#.DOC ' Dim Counter As Long, Source As Document, Target As Document Set Source = ActiveDocument Selection.HomeKey Unit:=wdStory Pages = Source.BuiltInDocumentProperties(wdPropertyPages) Counter = 0 While Counter Pages Counter = Counter + 1 DocName = "Page" & Format(Counter) Source.Bookmarks("\Page").Range.Cut Set Target = Documents.Add Target.Range.Paste Target.SaveAs FileName:=DocName Target.Close Wend End Sub -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP "dee" wrote in message ... I just want to make a new document out of each page. So at the end I will have n number of documents where there were n number of pages in my original document, with each document having one page. I looked up how to do this and I tried the thumbnail view method but it didn't work, at least not in Word 2003. If anyone could give advice that would be great. Thanks |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Word applies direct format on File open | Microsoft Word Help | |||
Hebrew Suggestions | Microsoft Word Help | |||
page number printing on a merged report | Mailmerge | |||
In Word, how can I see all files (*.*) in "save as"? | New Users | |||
WP Delay Code - Word Equiv | Microsoft Word Help |