Microsoft Office Forums - View Single Post - [Solved] How to preset serial number in 00000# format

DarkNinja · 03-26-2021, 10:57 AM

Hi,

I am preparing a registration form with a column for serial number.

By configuring below macros for the word file am working with i was able to print forms with serial numbers in increment as 1,2,3,4 etc but i was instructed to make the serial numbers to be presented in 000001,000002,000003.... 000101,000102,000103 format.

Thanks for your help.

Code:

Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message  As String, Title  As String, Default  As String, NumCopies  As Long
 Dim Rng1   As Range

 ' Set prompt.

Message = "Enter the number of copies that you want to print"
 ' Set title.
Title = "Print"
 ' Set default.
Default = "1"

' Display message, title, and default value.
Dim SerialNumber As String
NumCopies = Val(InputBox(Message, Title, Default))
 SerialNumber = System.PrivateProfileString("C:\Users\D\Desktop\WORK\settings.txt", _
 "MacroSettings", "SerialNumber")

 If SerialNumber = "" Then
     SerialNumber = 1
 End If


 Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
 Counter = 0
 

 While Counter < NumCopies
     Rng1.Delete
     Rng1.Text = SerialNumber
     ActiveDocument.PrintOut
     SerialNumber = SerialNumber + 1
     Counter = Counter + 1
 Wend

'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("C:\Users\D\Desktop\WORK\settings.txt", "MacroSettings", _
         "SerialNumber") = SerialNumber

'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
     .Add Name:="SerialNumber", Range:=Rng1
 End With
End Sub