Split Word Doc into 50 Separate Files

[SKZ]

I know this is a stretch, but is there a easy way to open a word doc, and save each page as a separate file? There is a hard page break inserted at the bottom of each page. I have the file in both Word 2003 and Word 2207. The doc contains templates that I need to pull out into their own files.

 

[kjv1611]

1. VBA code - probably not what you're talking about in regards to easy.

method 2. Convert to an Adobe PDF document, use Acrobat Stndard...
1. Convert to PDF
2. Select Document - Extract Pages
3. Check the box next to Extract Pages as Separate Files
4. Convert back to Word format if that's the final format you need.

Of course, method 2 only works if you have Adobe Acrobat.

There may still be an easier way, but that's all I can think of off the top of my head.

--

"If to err is human, then I must be some kind of human!" -Me

 

[CoSpringsGuy]

you could use master documents and sub documents

Create a header from the styles and formatting menu that has a page break before
apply that to text where you want your page breaks to be
go to outline view
Show level 1 only
highlight all the sections
click the create subdocument icon

you will create one document for each page





_____________________________________
Crystal Reports XI Developer Version
Intersystems Cache 5.X ODBC connection

 

[macropod]

Hi CoSpringsGuy,

You'd only use Master Documents if you need the character-building one gets from document corruption. See:

http://word.mvps.org/fAQs/General/WhyMasterDocsCorrupt.htm

Cheers
[MS MVP - Word]

 

[kjv1611]

Ah, good ole character building, courtesy of Microsoft!
[ROFL]

--

"If to err is human, then I must be some kind of human!" -Me

 

[CoSpringsGuy]

Thanks for the info macropod. I have used it succesfully many times but on fairly basic word docs. I think I will build character off the article and not from practical experience. Thanks for the advice!

_____________________________________
Crystal Reports XI Developer Version
Intersystems Cache 5.X ODBC connection

 

[PeterMoran]

Hi,

I found this, which may help.

=============
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
================

Good Luck!

Peter Moran

 

[SKZ]

Thanks for all the ideas. I went with what CoSpringsGuy suggested and breaking the doc into subdocuments. The end-user needs to do this herself, and she'll be fine with that. Sounds like it's a one-time shot and the doc is only 50 pgs.

Thanks again!
Sheri