Document.FullBuildNumberCreated 屬性 (Visio)

會傳回用來建立文件之執行個體的完整組建編號。 唯讀。

語法

表情。完整建置編號已創建

詞 一個代表 文件 物件的變數。

傳回值

Long

註解

下表將說明完整組建編號的格式。

此外，對於 Visio 來說，為了取得正確的完整建置號，必須在 FullBuildNumberCreated 屬性回傳的完整建置號中，將內部修訂號加上 1000，如下方巨集所示。

範例

下列 Microsoft Visual Basic for Applications (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 支援與意見反應。