WD2000: Macro to Increment Invoice Number to New Form Document

• Microsoft Word 2000

SUMMARY

With Microsoft Visual Basic for Applications, you can produce a series of document forms containing a number that increments with each new document created. This may be helpful if you are designing an invoice template form and you want to automatically increment the invoice number.

The following sample macro increments the value stored in a Microsoft Windows registry entry each time a new document is created based on a custom template.

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact a Microsoft Certified Solution Provider or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Solution Providers, please see the following page on the World Wide Web:

http://www.microsoft.com/mcsp/

http://www.microsoft.com/support/supportnet/overview/overview.asp

Q212536 OFF2000: How to Run Sample Code from Knowledge Base Articles

Sub AutoNew()

   ' If the active document does not contain
   ' a form field, exit this routine.
   If ActiveDocument.FormFields.Count = 0 Then
      End
   End If

   ' Create variables.
   Dim sAppName As String
   Dim sSection As String
   Dim sKey As String
   Dim sFieldName As String
   Dim lRegValue As Long
   Dim lFormValue As Long
   Dim iDefault As Integer
   sAppName = "Word 2000"
   sSection = "Invoices"
   sKey = "Current Invoice Number"

   ' The default starting number.
   iDefault = 1

   ' If the specified form field doesn't exist,
   ' an error will occur.
   On Error GoTo errhandler

   ' Replace the following example Form Field bookmark name,
   ' "InvoiceNumber", with the name of your form field.
   Set fField = ActiveDocument.FormFields("InvoiceNumber")

   ' Get stored registry value, if any.
   lRegValue = GetSetting(sAppName, sSection, sKey, iDefault)

   ' If the result is zero, set to default value.
   If lRegValue = 0 Then lRegValue = iDefault

   ' Set form field result to stored value.
   fField.Result = CStr(lRegValue)

   ' Increment and update invoice number.
   SaveSetting sAppName, sSection, sKey, lRegValue + 1

   Errhandler:

   If Err <> 0 Then
      MsgBox Err.Description
   End If

End Sub 

Resetting the Invoice Number

Sub ResetInvoiceNumber()

   ' If the active document does not contain
   ' a form field exit this routine.
   If ActiveDocument.FormFields.Count = 0 Then
      End
   End If

   ' Create variables.
   Dim sAppName As String
   Dim sSection As String
   Dim sKey As String
   Dim lRegValue As Long
   Dim lFormValue As Long
   Dim iDefault As Integer
   sAppName = "Word 2000"
   sSection = "Invoices"
   sKey = "Current Invoice Number"
   iDefault = 1

   ' If the specified form field doesn't exist,
      ' an error will occur.
      On Error GoTo errhandler

      ' Replace the following Form Field bookmark name,
      ' "InvoiceNumber", with the name of your form field.
      Set fField = ActiveDocument.FormFields("InvoiceNumber")

      ' Get stored registry value, if any.
      lRegValue = GetSetting(sAppName, sSection, sKey, iDefault)

      ' If the result is zero, set to default value.
      If lRegValue = 0 Then lRegValue = iDefault

      ' Get value from formfield. The value cannot be null.
      If fField.Result <> "" Then

         ' If not Null or empty.
         lFormValue = fField.Result
      Else
         ' If null or empty, set to default value.
         fField.Result = iDefault
         lFormValue = iDefault
      End If

      ' See if a new new starting invoice number was entered.
      If lFormValue <> lRegValue Then

         ' If so, make the registry value equal the form value
         ' and store the new value.
         SaveSetting sAppName, sSection, sKey, lFormValue + 1

      End If

   Errhandler:

      If Err <> 0 Then
         MsgBox Err.Description
      End If

End Sub 

REFERENCES

For additional information about getting help with Visual Basic for Applications, click the article number below to view the article in the Microsoft Knowledge Base:

Q226118 OFF2000: Programming Resources for Visual Basic for Applications

Additional query words: vb vba vbe

Keywords : kbdta kbdtacode kbwordvba wd2000
Version : WINDOWS:2000
Platform : WINDOWS
Issue type : kbhowto