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

Статья
04/07/2023

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

Синтаксис

expression. FullBuildNumberEdited

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

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

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

Замечания

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

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

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

Пример

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

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

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

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

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