Sorting Pages

[Steved]

Hello from Steved.

Just like to know please if the below can be done using a macro.

Objective is to Sort 30 pages.

I would to have the pages in the below order.

1,10,20 then 2,11,21 then 3,12,22 then 4,13,23 then 5,14,24 then 6,15,25
then 7,16,26 then 8,17,27 then 9,18,28 then 10,19,29

If this is possible would please supply me with the macro so I can do this.

Thankyou.

 

[Doug Robbins - Word MVP]

I think that your sort is probably screwed up. Did you mean to start with
1, 10, 20 and end with 10, 19, 29 and omit 30?

One way that I could think of doing it would be to print the document to a
..pdf type printer (either Adobe or one of the free ones that you can down
load such as PrimoPDF) or the Microsoft Office Document Image Writer.

The code for a macro to perform the operation would be:

ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, _
Pages:="1,11,21,2,12,22,3,13,23,4,14,24,5,15,25,6,16,26,7,17,27,8,18,28,9,19,29,10,20,30"

You could then try and convert it back to a Word document if that was the
required format.

--
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

 

[Jean-Guy Marcil]

Steved was telling us:
Steved nous racontait que :

Hello from Steved.

Just like to know please if the below can be done using a macro.

Objective is to Sort 30 pages.

I would to have the pages in the below order.

1,10,20 then 2,11,21 then 3,12,22 then 4,13,23 then 5,14,24 then
6,15,25 then 7,16,26 then 8,17,27 then 9,18,28 then 10,19,29

If this is possible would please supply me with the macro so I can do
this.

Thankyou.

At printing time or in the actual document?
If the latter, please describe you document content a bit.

What Word version?

 

[Steved]

Hello Doug

Thankyou Page 30 in this case would be the last Page.

Just a further question If I leave the pages as they are 1,2,3,4 and so on
is their away I can tell the printer to print the below.

Pages:="1,11,21,2,12,22,3,13,23,4,14,24,5,15,25,6,16,26,7,17,27,8,18,28,9,19,29,10,20,30"

I Thankyou

Steved

 

[Doug Robbins - Word MVP]

Yes, you either use the code that I gave you or manually enter those numbers
into the file print dialog.

--
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

 

[Steved]

Hello Jean-Guy

Word Version 2007

Simply put at the moment I just print it out normally pages 1 to 30.

I would like to have the opportunity please to have a macro that will
printout the below pages in the order that is below..

1,10,20,2,11,21,3,12,22,4,13,23,5,14,24,6,15,25,7,16,26,8,17,27,9,18,28,10,19,29,30

 

[Doug Robbins - Word MVP]

I have given you that. Here it is again for the order that you now indicate
that you want:

ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, _
Pages:="1,10,20,2,11,21,3,12,22,4,13,23,5,14,24,6,15,25,7,16,26,8,17,27,9,18,28,10,19,29,30"


--
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

 

[Steved]

Hello Doug

Thankyou

I have given you that. Here it is again for the order that you now indicate
that you want:

ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, _
Pages:="1,10,20,2,11,21,3,12,22,4,13,23,5,14,24,6,15,25,7,16,26,8,17,27,9,18,28,10,19,29,30"


--
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