Saving mulitiple pages from a word document

[Guest]

I have been given several documents that contain 20+ pages in each document.
Each page is complete and does not cross over on to another page.
What I need to do is save each page as a seperate page.

I know I can delete all pages save the 1st page then repeat this process for
each page but that is going to take for ever and i have a time limit on this
job.

Is there any automatic way of doing this or even a macro/vb to
save each page in a seperate file.

Thanks
Stuart

 

[Guest]

Hi, Stuart. The following is a macro posted by Word MVP Doug Robbins in
response to a similar question:

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

And if you don't know how to install a macro, see
http://www.gmayor.com/installing_macro.htm.