Visual Basic (VB and VBA)
Copyright 1999-2001 Christopher Greaves. All rights reserved.
Home Page and email to [email protected]
If in doubt, record a macro and inspect the entrails!

 

 

Please read the DISCLAIMER.

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.



Public Function IncrementBuildSequence()
' Procedure :   IncrementBuildSequence
' Description:  Increments a unique sequence number in the current document.
' Copyright: Chris Greaves Inc.
' Inputs:       None.
' Returns:      None.
' Assumes:      None.
' Side Effects: None.
' Tested:       By saving the current document.
' Method:
'   Obtain the next available value of an internal sequence,
'   Increment that value,
'   Obtain the next available value of an internal sequence,
    Dim lngIndex As Long
    lngIndex = lngIndexCustomDocumentProperties(ActiveDocument.Name, strcIdentifier)
    If lngIndex < 0 Then
        lngIndex = lngAddCustomDocumentProperties(ActiveDocument.Name, strcIdentifier)
    Else
    End If
'   Increment that value,
    Dim intSeq As Integer
    intSeq = Val(ActiveDocument.CustomDocumentProperties(lngIndex)) + intIncrement
    ActiveDocument.CustomDocumentProperties(lngIndex).Value = str(intSeq)
End Function

We all knew nothing when we started …
Home Page and Contact Information
Send email to [email protected].
This page was last updated Thursday, November 15, 2001

 

 

Hosted by www.Geocities.ws

1

Visual Basic (VB and VBA)

Copyright 1999-2001 Christopher Greaves. All rights reserved.
Home Page and email to [email protected]
If in doubt, record a macro and inspect the entrails!

 

 

Please read the DISCLAIMER.

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Function IncrementBuildSequence()
' Procedure :   IncrementBuildSequence
' Description:  Increments a unique sequence number in the current document.
' Copyright: Chris Greaves Inc.
' Inputs:       None.
' Returns:      None.
' Assumes:      None.
' Side Effects: None.
' Tested:       By saving the current document.
' Method:
'   Obtain the next available value of an internal sequence,
'   Increment that value,
'   Obtain the next available value of an internal sequence,
    Dim lngIndex As Long
    lngIndex = lngIndexCustomDocumentProperties(ActiveDocument.Name, strcIdentifier)
    If lngIndex < 0 Then
        lngIndex = lngAddCustomDocumentProperties(ActiveDocument.Name, strcIdentifier)
    Else
    End If
'   Increment that value,
    Dim intSeq As Integer
    intSeq = Val(ActiveDocument.CustomDocumentProperties(lngIndex)) + intIncrement
    ActiveDocument.CustomDocumentProperties(lngIndex).Value = str(intSeq)
End Function

We all knew nothing when we started …
Home Page and Contact Information
Send email to [email protected].
This page was last updated Thursday, November 15, 2001

 

 

Hosted by www.Geocities.ws

1