How do I do a Sequential Numbering?

macropod · #1 01-18-2011, 04:56 PM

Hi gburya,

As I undestand it, you want to be able to print 'x' pages and have the printout increment the count from a nominated starting number. Correct? In that case, you'll need a macro.

Try the following macro:

Code:

Sub CertificatePrint()
Dim iStart As Integer, iEnd As Integer, i As Integer, StrArry
On Error GoTo ErrHandler
iStart = CInt(InputBox("What is the first Certificate to print?", "Print Certificates From", "1"))
iEnd = CInt(InputBox("What is the last Certificate to print?", "Print Certificates To", iStart))
If iStart = 0 Or iStart > iEnd Then Exit Sub
With ActiveDocument
  For i = iStart To iEnd
    With .Shapes(1).TextFrame.TextRange.Fields(1)
      StrArry = Split(.Code.Text, " ")
      .Code.Text = Replace(.Code.Text, StrArry(UBound(StrArry)), i)
      .Update
    End With
    .PrintOut
  Next
End With
ErrHandler:
End Sub

To see how to install the macro, go to: http://www.gmayor.com/installing_macro.htm

gburya · #2 01-18-2011, 06:02 PM

Ok, I am going to send you a copy of the document so you have it to see what I am doing... however the answers to your questions are:

1. Yes it is a standard word text box. Or I could do it without a text box, just put it in the standard word format without it being in a text box. I just prefer to use the text box.
2. Yes I want it to be able to print 'x' pages and have the printout increment the count from a nominated starting number.
3. I just uploaded a copy of the file and it's name is: Capital_Unit_Certificate.docx

gburya · #3 01-20-2011, 10:39 AM

Hey I feel so stupid!!

I have tried everything I can think of to get this macro to work, but just can't get it to do what I need. I tried putting it on just a blank document. It is not showing the number at all, and not printing anything either.

I guess I am not placing it in the document properly???

Not sure what is happening...

Any assistance is helpful.

OH just thought of this... my computer is a 64-bit so could that be making any difference? I have everything program wise set for 64-bit...

Thanks!!

Peter Earle · #4 02-17-2012, 05:44 AM

Quote:

Originally Posted by macropod

Try the following macro:

Code:

...
iEnd = CInt(InputBox("What is the last Certificate to print?", "Print Certificates To", iStart))
...

Is there an error?
Should it not read:
iEnd = CInt(InputBox("What is the last certificate to print?", "Print Certificates To", iEnd))

I can't seem to make it print anything at all (Not even if I change this)

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Sequential Page Numbering of Multiple Word Docs	bobmard	Word	8	08-24-2011 08:51 AM
Numbering ?	MaryLee	Word	1	11-29-2010 12:06 PM
Numbering Problem	ydbret	Word	0	08-05-2010 12:38 PM
Subtotaling Sequential 0's	ktpalmer	Excel	2	06-23-2010 06:54 AM
numbering and formatting	whitemelly	Word	0	02-11-2010 09:06 AM