How to split up a VERY large word document? (>15,000 pages)

07-09-2005, 11:01 PM

Doug Robbins
07-09-2005, 11:01 PM
Where do you want to split it? If by page, use the first macro. If it is
divided into sections, use the second

Sub splitter1()


' splitter1 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.SaveAs FileName:=DocName, FileFormat:= _

wdFormatDocument, LockComments:=False, Password:="",
AddToRecentFiles:= _

True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:= _

False, SaveNativePictureFormat:=False, SaveFormsData:=False, _




End Sub

Sub splitter2()

' splitter2 Macro

' Macro created by Doug Robbins to save each letter created by a mailmerge
as a separate file.

Dim i As Long, Source as Document, Target as Document, Letter as Range
Set Source = ActiveDocument
For i = 1 to Source.Sections.Count
Set Letter = Source.Sections(i).Range
Set Target = Documents.Add
Target.SaveAs FileName:="Letter" & i
Next i

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
"Deavr" <> wrote in message

How to split up a VERY large word document? (>15,000 pages)