FullBuildNumberEdited Property
TOC
Collapse the table of content
Expand the table of content

Document.FullBuildNumberEdited Property (Visio)

Office 2013 and later
GitHub-Mark-64px

Contribute to this content

Use GitHub to suggest and submit changes. See our guidelines for contributing to VBA documentation.

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

expression .FullBuildNumberEdited

expression A variable that represents a Document object.

Return Value

Long

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 = 15)

31

Reserved

In addition, for Visio, 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.

The following Microsoft Visual Basic procedures show how to use the FullBuildNumberEdited property to get the full build number of the instance of 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.

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 2010 
 Debug.Print "lngFullBuild (full version specification): " & lngMajor & "." _ 
 & lngMinor & "." & lngBuild & "." & lngRevision + 1000 
 Debug.Assert(0 = lngNumber) 
 
End Sub
Show:
© 2016 Microsoft