Sequential Numbering of Word Doc

macropod · #16 04-21-2021, 05:43 AM

See attached.

PS: When posting code, please use the code tags, indicated by the # button on the posting menu. Without them, your code loses much of whatever structure it had.

Guessed · #17 04-21-2021, 04:30 PM

I think it is easier to deal with Content Controls so I would do this with the following code after putting a Content Control titled "CertNumber" in the location you want the number to appear.

Code:

Sub JHA_Print()
  Dim iStart As Integer, iEnd As Integer, i As Integer, aCC As ContentControl, sVal As String
  'On Error GoTo ErrHandler
  Set aCC = ActiveDocument.SelectContentControlsByTitle("CertNumber")(1)
  sVal = aCC.Range.Text
  If Not IsNumeric(sVal) Then
    iStart = 1
  Else
    iStart = CInt(sVal) + 1
  End If
  iEnd = CInt(InputBox("What is the last Certificate to print?", "Print Certificates To", iStart + 1))
  If iStart > iEnd Then Exit Sub
  With ActiveDocument
    For i = iStart To iEnd
      aCC.Range.Text = i
      .PrintOut
    Next
  End With
'ErrHandler:
End Sub

Charles Kenyon · #18 04-21-2021, 07:43 PM

I get that you really, really, really, want to do this yourself, but take a look at:

Onison · #19 05-08-2021, 08:03 PM

Hello Paul, sorry for dropping off of the radar, my wife got sick and I had to fly home for a couple of weeks.
I just wanted to let you know I have managed to get the file you sent through to me working (when I first tried to run the macro it told me the macros were disabled and would not work, I figured out I needed to have the file in a trusted location for it to run), it is now doing exactly what I need it to do. Thanks for your help and patience.

James

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Sequential numbering in Word - Unique numbers for table rows	krips	Word	1	03-21-2018 05:06 AM
Sequential numbering within Word	Earthly Way	Word VBA	1	12-02-2015 07:36 PM
New to Word VBA - Sequential Numbering	techmendz	Word VBA	11	08-07-2014 08:20 AM
Sequential Numbering	jdwoods	Word VBA	7	12-16-2011 05:11 AM
Sequential Page Numbering of Multiple Word Docs	bobmard	Word	8	08-24-2011 08:51 AM