[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