Seperate Pages into Files

G

Guest

I have a 43 page document that i need to seperate into 43 seperate files - one for each page. Is there an easier way of doing this?

Thanks
 
G

Guest

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Seperate ONE document into MULTIPLE 1
Saving a single page as a seperate Word document 1
hidden Headers and footers 1
Saving File as multiple HTML pages. 1
Printing Questions 1
Trouble with text from file and headers 3
instert a page from another document 1
combining seperate word documents into one 1

Top