[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 he

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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


sonia wrote:
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

[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?

"Graham Mayor" wrote:

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 he

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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


sonia wrote:
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

[Suzanne S. Barnhill]

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

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

"sonia" wrote in message
...
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?

"Graham Mayor" wrote:

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 he

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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


sonia wrote:
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]

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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


sonia wrote:
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?

"Graham Mayor" wrote:

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 he

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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


sonia wrote:
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

[Sonia]

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

"Graham Mayor" wrote:

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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


sonia wrote:
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?

"Graham Mayor" wrote:

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 he

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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


sonia wrote:
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]

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


--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


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

"Graham Mayor" wrote:

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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


sonia wrote:
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?

"Graham Mayor" wrote:

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 he

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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


sonia wrote:
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