Convert 200 page Word Doc to 200 separate word docs

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have had a request to take a 200 page word document and convert it into 200 single page documents and save each one separately.

Anybody got a clue on how to go about this, Julie said write a macro which I am trying to work out but it will probably take me a week as my VB knowledge is fairly limited.

Another option was to convert to PDF and use page extraction to separate the files.

But we really want to keep the docs in word format.
 
Hi, Julie. 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
 
Back
Top