Reordering Pages

[georgepag]

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?

 

[Doug Robbins - Word MVP]

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

 

[macropod]

Hi georgepag,

Cut & Paste.

 

[Doug Robbins - Word MVP]

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