I have a 30 page document, I want to turn into 30 separate pages,

[sonia]

My pages all have headers and footers, I am trying to turn my 30 pages into
30 different 1 page documents, is there a way i can select just the one page,
including the headers and footers, and copy them to another page? so far all
that's copying is the middle of the page, not the H&F's. I've tried selecting
all but that selects all 30 pages.
When I make up a header and footer on my new page, it is all out of
proportion to the originals, and I need it all the same.

Thanks

 

[Graham Mayor]

How easy this will be will depend on the complexity n the document. If it
has a header/footer that runs through all 30 pages, then save the document
as a template called (say) SplitDoc.dot in the default template location.
Delete all the text from the template (except the header/footer) and save it
again.
Re-open the original document and run the following macro, having first
changed the path where indicated to where you wish to save the documents.
If the document is more complex, eg it has different header/footers for each
page or section, then there is no simple way of splitting the document. Word
is not a page layout application. Split the document using this method then
make any changes required in each document.
http://www.gmayor.com/installing_macro.htm


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 here:

Docname = "D:\My Documents\Test\Merge\" _
& sName & " " & Format(Date, mask) & " " & LTrim$(Str$(Counter)) &
".doc"
'***************************
On Error GoTo Oops:
ActiveDocument.Bookmarks("\page").Range.Cut
Documents.Add "splitdoc.dot"
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


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[sonia]

Hi Graham,

Thanks, but i'm pretty new to Word, so I don't know how to go about using or
entering macros, plus my computer is on a server, will doing that affect any
other computers?

 

[Suzanne S. Barnhill]

Did you read http://www.gmayor.com/installing_macro.htm?

 

[Graham Mayor]

As Suzanne indicates, installing macros is covered in the linked page. If
your network system has been setup properly, ie you are not sharing
resources not designed to be shared, the macro should go in your personal
normal.dot template and will not affect other users. If in doubt discuss
with your company IT department.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[sonia]

I've spoken to IT and they say it's fine to go ahead, thanks for all your
help.

 

[Graham Mayor]

You are welcome - let's now hope that the macro actually does what you want


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>