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. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
How do I save pages seperately?
I need to save a 2 page document....each page seperately.
|
#2
|
|||
|
|||
How do I save pages seperately?
The only practical way to do this is make a copy of the document and delete
page 1 from one copy and page 2 from the other. -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA "sharonvania" wrote in message ... I need to save a 2 page document....each page seperately. |
#3
|
|||
|
|||
How do I save pages seperately?
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 "sharonvania" wrote in message ... I need to save a 2 page document....each page seperately. |
Thread Tools | |
Display Modes | |
|
|