Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.pagelayout
dee
 
Posts: n/a
Default 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   Report Post  
Posted to microsoft.public.word.pagelayout
Doug Robbins - Word MVP
 
Posts: n/a
Default 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

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Word applies direct format on File open Uriel Microsoft Word Help 16 November 27th 05 08:22 PM
Hebrew Suggestions Dannyza Microsoft Word Help 2 November 21st 05 07:12 AM
page number printing on a merged report Print Page # On Merged Report Mailmerge 6 October 17th 05 05:18 AM
In Word, how can I see all files (*.*) in "save as"? citizen53 New Users 8 April 4th 05 04:56 PM
WP Delay Code - Word Equiv Mike G - Milw, WI Microsoft Word Help 6 January 10th 05 05:12 PM


All times are GMT +1. The time now is 04:32 PM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"