Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Split a multi-page file
Hello All,
Can anyone tell me if there is a way to split a multi-page file up and save each individual page? I don't hold out much hope, but never mind.... TIA, Kirstie |
#2
|
|||
|
|||
There is a way and I am racking my brains trying to remember exactly how.
I'm sure that a fellow MVP said to use MasterDocs to split up a document so that each page is a separate file. This is about the only time ever to recommend using MasterDocs because it is a sure fire way of corrupting a document beyond redemption: so make sure to try it with a copy of the document! -- Terry Farrell - Word MVP http://word.mvps.org/ "KirstieA" (no spam) wrote in message ... : Hello All, : : Can anyone tell me if there is a way to split a multi-page file up and save : each individual page? : : I don't hold out much hope, but never mind.... : : TIA, : : Kirstie : : |
#3
|
|||
|
|||
I think there's a Splitter macro that Doug Robbins wrote floating around. A
Google Groups search might turn it up. -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA Word MVP FAQ site: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. "TF" terryfarrell%40%6d%73%6e%2ecom wrote in message ... There is a way and I am racking my brains trying to remember exactly how. I'm sure that a fellow MVP said to use MasterDocs to split up a document so that each page is a separate file. This is about the only time ever to recommend using MasterDocs because it is a sure fire way of corrupting a document beyond redemption: so make sure to try it with a copy of the document! -- Terry Farrell - Word MVP http://word.mvps.org/ "KirstieA" (no spam) wrote in message ... : Hello All, : : Can anyone tell me if there is a way to split a multi-page file up and save : each individual page? : : I don't hold out much hope, but never mind.... : : TIA, : : Kirstie : : |
#4
|
|||
|
|||
The code in question is shown below - change the path in the Docname string
to the path you wish to save the files to. Sub SplitByPage() Dim mask As String Letters = ActiveDocument.Bookmarks("\page").Range mask = "ddMMyy" Selection.HomeKey Unit:=wdStory Counter = 1 While Counter Letters Application.ScreenUpdating = False sName = "Split" Docname = "D:\My Documents\Test\Merge\" _ & sName & " " & Format(Date, mask) & " " & LTrim$(Str$(Counter)) On Error GoTo oops: ActiveDocument.Bookmarks("\page").Range.Cut Documents.Add With Selection .Paste .EndKey Unit:=wdStory .MoveLeft Unit:=wdCharacter, Count:=1 .Delete Unit:=wdCharacter, Count:=1 End With ActiveDocument.SaveAs FileName:=Docname, _ FileFormat:=wdFormatDocument ActiveWindow.Close Counter = Counter + 1 Application.ScreenUpdating = True Wend oops: End Sub See http://www.gmayor.com/installing_macro.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Suzanne S. Barnhill wrote: I think there's a Splitter macro that Doug Robbins wrote floating around. A Google Groups search might turn it up. "TF" terryfarrell%40%6d%73%6e%2ecom wrote in message ... There is a way and I am racking my brains trying to remember exactly how. I'm sure that a fellow MVP said to use MasterDocs to split up a document so that each page is a separate file. This is about the only time ever to recommend using MasterDocs because it is a sure fire way of corrupting a document beyond redemption: so make sure to try it with a copy of the document! -- Terry Farrell - Word MVP http://word.mvps.org/ "KirstieA" (no spam) wrote in message ... Hello All, Can anyone tell me if there is a way to split a multi-page file up and save each individual page? I don't hold out much hope, but never mind.... TIA, Kirstie |
#5
|
|||
|
|||
Excellent, thanks for all your help everyone!
Kirstie "Graham Mayor" wrote in message ... The code in question is shown below - change the path in the Docname string to the path you wish to save the files to. Sub SplitByPage() Dim mask As String Letters = ActiveDocument.Bookmarks("\page").Range mask = "ddMMyy" Selection.HomeKey Unit:=wdStory Counter = 1 While Counter Letters Application.ScreenUpdating = False sName = "Split" Docname = "D:\My Documents\Test\Merge\" _ & sName & " " & Format(Date, mask) & " " & LTrim$(Str$(Counter)) On Error GoTo oops: ActiveDocument.Bookmarks("\page").Range.Cut Documents.Add With Selection .Paste .EndKey Unit:=wdStory .MoveLeft Unit:=wdCharacter, Count:=1 .Delete Unit:=wdCharacter, Count:=1 End With ActiveDocument.SaveAs FileName:=Docname, _ FileFormat:=wdFormatDocument ActiveWindow.Close Counter = Counter + 1 Application.ScreenUpdating = True Wend oops: End Sub See http://www.gmayor.com/installing_macro.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Suzanne S. Barnhill wrote: I think there's a Splitter macro that Doug Robbins wrote floating around. A Google Groups search might turn it up. "TF" terryfarrell%40%6d%73%6e%2ecom wrote in message ... There is a way and I am racking my brains trying to remember exactly how. I'm sure that a fellow MVP said to use MasterDocs to split up a document so that each page is a separate file. This is about the only time ever to recommend using MasterDocs because it is a sure fire way of corrupting a document beyond redemption: so make sure to try it with a copy of the document! -- Terry Farrell - Word MVP http://word.mvps.org/ "KirstieA" (no spam) wrote in message ... Hello All, Can anyone tell me if there is a way to split a multi-page file up and save each individual page? I don't hold out much hope, but never mind.... TIA, Kirstie |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I create a multi page template? | Page Layout | |||
Split 600 pg doc and save as 300 different file names. 1 pair of. | New Users | |||
How do I create a multi file book in Word ? | Microsoft Word Help | |||
Drop down menu under the word File at top of page | Microsoft Word Help | |||
Odd page section break | Page Layout |