Reply
 
Thread Tools Display Modes
  #1   Report Post  
Mike
 
Posts: n/a
Default How to split 50 page word document into 50 individual files

I have a 50 page document that I want to split up into 50
individual word files. Is there a quick way to do this or
will I have to copy and paste and save each page
seperately. Its a project I have to do this week. Not in a
hurry to do it. Any help appreciated.
  #2   Report Post  
Graham Mayor
 
Posts: n/a
Default

There is no concept of 'page' in Word, so how easy this will be will be
determined by what is on the pages. If, for example it is a merge document,
see http://www.gmayor.com/individual_merge_letters.htm.
However, if the document is simple ie it does not contain graphics, headers,
sections etc which may screw things up, the following should work

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"
'************************************************* *****
'Change path in the next line
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

You should work on a *copy* of the original document and you'll need to
change the path to suit your requirements. 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




Mike wrote:
I have a 50 page document that I want to split up into 50
individual word files. Is there a quick way to do this or
will I have to copy and paste and save each page
seperately. Its a project I have to do this week. Not in a
hurry to do it. Any help appreciated.



Reply
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
How can I divide a page into three sections? Bonnie Microsoft Word Help 3 May 8th 23 02:47 AM
WP Delay Code - Word Equiv Mike G - Milw, WI Microsoft Word Help 6 January 10th 05 04:12 PM
Macro that will add the file path & date to Word footnotes? Rich P Microsoft Word Help 2 December 15th 04 07:49 PM
FIrst page footers Noel S Pamfree Microsoft Word Help 7 December 6th 04 08:49 PM
How do I convert a cd in word perfect to microsoft word greylady Microsoft Word Help 1 November 23rd 04 07:03 PM


All times are GMT +1. The time now is 11:48 PM.

Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
Copyright 2004-2023 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"