Share via

Document.FullBuildNumberEdited Property

  • Article
Visio Automation Reference

Returns the full build number of the instance last used to edit the document. Read-only.

Version Information
 Version Added:  Visio 2002

Syntax

expression.FullBuildNumberEdited

expression   A variable that represents a Document object.

Return Value
Long

Remarks

The format of the full build number is described in the following table.

Bits Description

0 - 15

Internal build number

16 - 20

Internal revision number

21 - 25

Minor version number.

26 - 30

Major version number (Visio 2007 = 12)

31

Reserved

In addition, for Microsoft Office Visio 2007, to obtain the correct full build number, it is necessary to add 1000 to the internal revision number part of the full build number returned by the FullBuildNumberEdited property, as shown in the following macro.

Example

The following Microsoft Visual Basic procedures show how to use the FullBuildNumberEdited property to get the full build number of the instance of Microsoft Office Visio last used to edit the document. When the full build number has been obtained, the ParseFullBuildNumberEditedProperty procedure parses the number and prints the result in the Immediate window.

Visual Basic for Applications 
  Public Sub FullBuildNumberEdited_Example()
 
    Dim lngFullBuild As Long
    lngFullBuild = ActiveDocument.FullBuildNumberEdited				
    ParseFullBuildNumberEditedProperty (lngFullBuild)     

End Sub


Public Sub ParseFullBuildNumberEditedProperty(ByRef lngFullBuild As Long)


Dim lngMajor As Long
Dim lngMinor As Long
Dim lngRevision As Long
Dim lngBuild As Long
Dim lngNumber As Long

lngNumber = lngFullBuild 

' Low 16 bits: 
lngBuild = lngNumber Mod 65536 
lngNumber = lngNumber / 65536

'Next 5 bits:  
lngRevision = lngNumber Mod 32 
lngNumber = lngNumber / 32 

'Next 5 bits:  
lngMinor = lngNumber Mod 32 
lngNumber = lngNumber / 32

'Next 5 bits:  
lngMajor = lngNumber Mod 32 
lngNumber = lngNumber / 32 

'Remaining 1 bit unused and 0 as of Visio 2007
 Debug.Print "lngFullBuild (full version specification): " & lngMajor & "." _
    & lngMinor & "." & lngBuild & "." & lngRevision + 1000
Debug.Assert(0 = lngNumber) 



End Sub

See Also