Reordering Pages
Try running a macro containing the following code:
Dim i As Long
Dim Source As Document, Target As Document
Dim trng As Range
Set Source = ActiveDocument
Set Target = Documents.Add
Source.Activate
Selection.HomeKey Unit:=wdStory
With Source
For i = 1 To Source.BuiltInDocumentProperties(wdPropertyPages)
Source.Bookmarks("\Page").Range.Cut
Set trng = Target.Range
trng.Collapse wdCollapseStart
trng.Paste
Next i
End With
Source.Close wdDoNotSaveChanges
Target.Activate
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
"georgepag" wrote in message
...
I have a multi-page document where the pages go from the last
page to the first. How can I reverse this so that when i open the
document I see page 1 rather than page 8?
|