A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Word » General Discussion
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

how do i move selected pages to a new word document



 
 
Thread Tools Display Modes
  #1  
Old August 21st, 2009, 10:08 PM posted to microsoft.public.word.docmanagement
R in AZ
external usenet poster
 
Posts: 1
Default how do i move selected pages to a new word document

I have created a long document (100+ pages) consisting of several chapters
and want to remove the chapters from the main doc into their own separate
documents (i.e. 12 chapters would be 12 separate documents). I checked
on-line help and read about selecting thumbnail pages (no problem) which
could then be separated from the mother doc by clicking on Move Pages to New
Document in Page menu. I have only Page Layout, thus the Move...New Doc is
nowhere to be found.
What am I missing here???
  #2  
Old August 21st, 2009, 10:24 PM posted to microsoft.public.word.docmanagement
Doug Robbins - Word MVP
external usenet poster
 
Posts: 8,239
Default how do i move selected pages to a new word document

If each chapter is in a separate Section (that is separated by Section
Breaks), you could use a macro containing the following code:

Sub splitter()
' splitter Macro
' Macro created by Doug Robbins to save each letter created by a mailmerge
' as a separate file, retaining the header and footer information.
Dim i As Long, Source As Document, Target As Document, Letter As Range
Set Source = ActiveDocument
For i = 1 To Source.Sections.Count
Set Letter = Source.Sections(i).Range
Set Target = Documents.Add
Target.Range = Letter
Target.Sections(2).PageSetup.SectionStart = wdSectionContinuous
Target.SaveAs FileName:="Letter" & i
Target.Close
Next i
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, originally posted via msnews.microsoft.com
"R in AZ" R in wrote in message
...
I have created a long document (100+ pages) consisting of several chapters
and want to remove the chapters from the main doc into their own separate
documents (i.e. 12 chapters would be 12 separate documents). I checked
on-line help and read about selecting thumbnail pages (no problem) which
could then be separated from the mother doc by clicking on Move Pages to
New
Document in Page menu. I have only Page Layout, thus the Move...New Doc
is
nowhere to be found.
What am I missing here???


 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 07:16 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.