Separating pages into documents

[Shawna]

I would like to save an 8 page document as 8 separate
documents. (each page as its own document). Is there a
quick and easy way to do this? Any suggestions would be
greatly appreciated.

Thanks,
Shawna

 

[garfield-n-odie]

Hi, Shawna. 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.