hoe kan ik elke pagina als afzonderlijk document opslaan?

[pipodezeeuw]

ik weet niet of het kan hoor, maar ik heb een samenvoegdocument, (bestaat uit
246 pagina's). is het mogelijk om elke pagina als afzonderlijk document op
te slaan in 1 keer?

gr gertjan

[Pjotr]

"pipodezeeuw" <pipod...@discussions.microsoft.com> schreef in bericht
news:F4767B91-D525-469F...@microsoft.com...

Gertjan,
In Word zit geen standaardoplossing hiervoor.
Google bracht het volgende:
http://groups.google.com/group/microsoft.public.nl.office.word/browse_thread/thread/714e0bd2f66ef3c9/e85a4a902c848880?lnk=st&q=pagina%27s+uit+een+document&rnum=58#e85a4a902c848880
Met een macro moet het wel kunnen.
Pjotr

[Flip]

Hallo pipodezeeuw,

Onderstaande macro splitst op per pagina, ik kreeg hem van Doug Robbins.
Voor mijn toepassing moest ik hem nog wat aanpassen maar, het werkt keurig.

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

'

Dim Counter As Long, Source As Document, Target As Document

Set Source = ActiveDocument

Selection.HomeKey Unit:=wdStory

Pages = Source.BuiltInDocumentProperties(wdPropertyPages)

Counter = 0

While Counter < Pages

Counter = Counter + 1

DocName = "Page" & Format(Counter)

Source.Bookmarks("\Page").Range.Cut

Set Target = Documents.Add

Target.Range.Paste

Target.SaveAs FileName:=DocName

Target.Close

Wend

End Sub

Flip

"pipodezeeuw" <pipod...@discussions.microsoft.com> schreef in bericht
news:F4767B91-D525-469F...@microsoft.com...