Saving document by page number

[David]

Is there a way to save each individual pages in a document
as a separate file with out copy and pasting them on to a
new document?

 

[quartz]

David

I'm not an MVP or anything, but the only way I know of to do this properly (i.e. so it handles headers/footers, etc.) is to print each page to a file in PDF format. You can accomplish this by checking "Print to file" on the "Print" menu, and change your printer to "Acrobat PDF"

This may not be the only solution, but it's the only one I found. Obviously you're out of luck if you don't have Acrobat

HTH.

 

[Doug Robbins - Word MVP - DELETE UPPERCASE CHARACT]

Hi David,

Use:

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

'

Selection.HomeKey Unit:=wdStory

Pages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)

Counter = 0

While Counter < Pages

Counter = Counter + 1

DocName = "Page" & Format(Counter)

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

Documents.Add

Selection.Paste

ActiveDocument.SaveAs FileName:=DocName, FileFormat:= _

wdFormatDocument, LockComments:=False, Password:="",
AddToRecentFiles:= _

True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:= _

False, SaveNativePictureFormat:=False, SaveFormsData:=False, _

SaveAsAOCELetter:=False

ActiveWindow.Close

Wend



End Sub

--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP