Propriedade Document.FullBuildNumberCreated (Visio)

Retorna o número de compilação completo da instância utilizada na criação do documento. Somente leitura.

Sintaxe

expressão. FullBuildNumberCreated

expressão Uma variável que representa um objeto documento .

Valor de retorno

Long

Comentários

O formato do número de compilação completo é descrito na tabela a seguir.

Além disso, para o Visio, para obter o número de compilação completo correto, é necessário adicionar 1000 à parte do número de revisão interna do número de compilação completo devolvido pela propriedade FullBuildNumberCreated , conforme mostrado na seguinte macro.

Exemplo

Os seguintes procedimentos do Microsoft Visual Basic for Applications (VBA) mostram como usar a propriedade FullBuildNumberCreated para obter o número de compilação completo da instância do Visio utilizada para criar o documento. Após obter o número de compilação completo, o procedimento ParseFullBuildNumberCreatedProperty analisa o número e imprime os resultados na janela Imediato.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.