Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

RE: How do I extract pages from a Word document?

0 views
Skip to first unread message

hvoran

unread,
May 10, 2005, 9:56:05 AM5/10/05
to
Thank you so much for your reply, CyberTaz. I apologize that I was not more
clear in my question. This is a document that I did not create...I am just
needing to divide it into smaller parts (saved as separate
documents...schedule A.doc, schedule B.doc, etc.) for our grant writing team
fill out the forms individually, then merge the document back together once
it is finished. The authors weren't necessarily consist in the use of
heading styles, as there are some sections that are forms and others that
require narrative responses, so I don't think the Master/Sub document option
will be consistent in how it divides the document.

Thanks again, though, for your quick response. :-)

Thanks again.

"CyberTaz" wrote:

> Hi hvoran-
>
> One option may be Master/Sub Documents. You might explore the use of that
> feature.
>
> HTH |:>)
>
> "hvoran" wrote:
>
> > I have a grant application from a state organization that needs to be divided
> > into sections in order to make the workflow more manageable. I'm spoiled by
> > the Adobe Acrobat function of extracting the pages from a document that I
> > want to separate. Is there no such function in Word? It should be easier
> > than cutting the text/tables I don't want. I even tried creating a new
> > document and inserting only the pages I wanted, but unless the document is
> > already bookmarked, this doesn't work easily, either. Am I missing something?

Bob Buckland ?:-) At Beautiful Downtown

unread,
May 10, 2005, 1:01:24 PM5/10/05
to
Hi Hvoran,

If you want to separate an existing document based on pages
this technique may be helpful to you.
http://support.microsoft.com/default.aspx?scid=kb;en-us;306348&FR=1

=========
<<"hvoran" <hvo...@discussions.microsoft.com> wrote in message news:CFB729B5-1352-48C5...@microsoft.com...


Thank you so much for your reply, CyberTaz. I apologize that I was not more
clear in my question. This is a document that I did not create...I am just
needing to divide it into smaller parts (saved as separate
documents...schedule A.doc, schedule B.doc, etc.) for our grant writing team
fill out the forms individually, then merge the document back together once
it is finished. The authors weren't necessarily consist in the use of
heading styles, as there are some sections that are forms and others that
require narrative responses, so I don't think the Master/Sub document option
will be consistent in how it divides the document.

Thanks again, though, for your quick response. :-) >>

--
Let us know if this helped you,

Bob Buckland ?:-)
MS Office System Products MVP

*Courtesy is not expensive and can pay big dividends*

Office 2003 Editions explained
http://www.microsoft.com/uk/office/editions.mspx


Doug Robbins

unread,
May 10, 2005, 1:55:29 PM5/10/05
to
Use the appropriate one of the following macros:

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

'

Selection.HomeKey Unit:=wdStory

Pages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)

Counter = 0

While Counter < Pages

Counter = Counter + 1

DocName = "Page" & Format(Counter)

ActiveDocument.Bookmarks("\Page").Range.Cut

Documents.Add

Selection.Paste

ActiveDocument.SaveAs FileName:=DocName, FileFormat:= _

wdFormatDocument, LockComments:=False, Password:="",
AddToRecentFiles:= _

True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:= _

False, SaveNativePictureFormat:=False, SaveFormsData:=False, _

SaveAsAOCELetter:=False

ActiveWindow.Close

Wend

End Sub

or to split into by sections rather than pages, use:

Sub splitter()

' splitter Macro

' Macro created by Doug Robbins to save each letter created by a mailmerge
as a separate file.

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
Letter.End=Letter.End-1
Set Target = Documents.Add
Target.Range=Letter
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


"hvoran" <hvo...@discussions.microsoft.com> wrote in message

news:B51F050E-1D2F-4998...@microsoft.com...

0 new messages