Home |
Search |
Today's Posts |
#1
|
|||
|
|||
How to split up a VERY large word document? (>15,000 pages)
|
#2
|
|||
|
|||
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(wdPropert yPages) 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 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 Letter.End=Letter.End-1 Set Target = Documents.Add Target.Range=Letter Target.SaveAs FileName:="Letter" & i Target.Close 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 ... |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Please give us REVEAL CODES like WORD PERFECT not reveal codes in. | Microsoft Word Help | |||
Making Word do something that Wordperfect can do | New Users | |||
Envelope Address | New Users | |||
Boiletplates from Word Perfect | Microsoft Word Help | |||
split large Word 2002 document | Microsoft Word Help |