Свойство Document.FullBuildNumberCreated (Visio)

Статья
04/07/2023

Возвращает полный номер сборки экземпляра, используемого для создания документа. Только для чтения.

Синтаксис

expression. FullBuildNumberCreated

Выражение Переменная, представляющая объект Document .

Возвращаемое значение

Длинное целое

Замечания

Формат полного номера сборки описан в следующей таблице.

Биты	Описание
0 - 15	Номер внутренней сборки
16 - 20	Внутренний номер редакции
21 - 25	Дополнительный номер версии
26 - 30	Основной номер версии (Visio = 15)
31	Reserved

Кроме того, для Visio, чтобы получить правильный полный номер сборки, необходимо добавить 1000 во внутреннюю часть номера редакции полного номера сборки, возвращаемого свойством FullBuildNumberCreated , как показано в следующем макросе.

Пример

В следующих процедурах Microsoft Visual Basic для приложений (VBA) показано, как использовать свойство FullBuildNumberCreated для получения полного номера сборки экземпляра Visio, используемого для создания документа. После получения полного номера сборки процедура ParseFullBuildNumberCreatedProperty анализирует номер и выводит результаты в окне Интерпретация.

Public Sub FullBuildNumberCreated_Example() 
 
 Dim lngFullBuild As Long 
 lngFullBuild = ActiveDocument.FullBuildNumberCreated 
 ParseFullBuildNumberCreatedProperty (lngFullBuild) 
 
End Sub 
 
Public Sub ParseFullBuildNumberCreatedProperty(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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через