macro for auto pagination 2003 MS WORD

aaa · 03-09-2009, 02:20 PM

Hi,

I have never used a macro before but I read online that it is possible to "tailor" a macro for repetetive tasks in WORD.

Can someone write a macro that would allow me to enter in as many blank pages in WORD as I need to?

I am a technical writer of pathology reports at my job.

My pathology reports have Appendices that are hundreds of pages long.

When I convert my pathology report in WORD to pdf I leave in as many blank pages as need per Appendix. Then I append the Appendices which are in pdf to the pdf of the pathology report and the entire WORD pagination is preserved in pdf. Finally my job requires that I overlay the entire report with pdf pagination.

It is time consuming to press enter a hundred times for Appendix A and 200 times for Appendix B or 50 times for Appendix C and so on and so forth.

Is there a simple macro that would allow me to type in a number per Appendix and then WORD just auto paginates as many pages as I tell it to per Appendix?

I would appreciate any help from the technical community.

Thanks,
AAA

**macropod** · 03-10-2009, 04:58 AM

Hi aaa,

Please note, this forum isn't a free coding service.

Nevertheless, you could try something based on:

Code:

Sub AddPages()
' Macro created 10/03/2009 by macropod
Dim i As Integer
Dim j As Integer
j = CInt(InputBox("How many pages to add?"))
With ActiveDocument
  For i = 1 To j
    .Range.InsertAfter vbCrLf & Chr(12)
  Next
End With
End Sub

03-09-2009, 02:20 PM	#1 (permalink)
aaa Registered User Join Date: Mar 2009 Posts: 1 OS: Windows XP Professional 2002	macro for auto pagination 2003 MS WORD Hi, I have never used a macro before but I read online that it is possible to "tailor" a macro for repetetive tasks in WORD. Can someone write a macro that would allow me to enter in as many blank pages in WORD as I need to? I am a technical writer of pathology reports at my job. My pathology reports have Appendices that are hundreds of pages long. When I convert my pathology report in WORD to pdf I leave in as many blank pages as need per Appendix. Then I append the Appendices which are in pdf to the pdf of the pathology report and the entire WORD pagination is preserved in pdf. Finally my job requires that I overlay the entire report with pdf pagination. It is time consuming to press enter a hundred times for Appendix A and 200 times for Appendix B or 50 times for Appendix C and so on and so forth. Is there a simple macro that would allow me to type in a number per Appendix and then WORD just auto paginates as many pages as I tell it to per Appendix? I would appreciate any help from the technical community. Thanks, AAA

03-10-2009, 04:58 AM	#2 (permalink)
macropod TSF Enthusiast Join Date: Apr 2008 Location: Australia Posts: 559 OS: Vista	Re: macro for auto pagination 2003 MS WORD Hi aaa, Please note, this forum isn't a free coding service. Nevertheless, you could try something based on: Code: Sub AddPages() ' Macro created 10/03/2009 by macropod Dim i As Integer Dim j As Integer j = CInt(InputBox("How many pages to add?")) With ActiveDocument For i = 1 To j .Range.InsertAfter vbCrLf & Chr(12) Next End With End Sub __________________ Cheers macropod (MS MVP -Word)