Classe Version - versão (Word VBA)
A classe Version representa uma única versão de um documento. O objeto de versão é um membro da coleção de versões. A coleção de versões inclui todas as versões do documento especificado. Para usar uma variável de classe Version, ela primeiro precisa ser instanciada por exemplo
Comment
Retorna o comentário associado à versão especificada de um documento. Cadeia de caracteressomente leitura.
If ActiveDocument.Versions.Count >= 1 Then
MsgBox Prompt:=ActiveDocument.Versions(1).Comment, _
Title:="First Version Comment"
End If
Date
A data e hora em que a versão do documento foi salvo. Somente leitura Data.
Dim docActive As Document
Set docActive = ActiveDocument
Delete
Exclui a versão especificada.
Dim vrs As Version: Set vrs =
vrs.Delete
Index
Retorna um Long que representa a posição de um item em uma coleção. Somente leitura.
Dim vrs As Version: Set vrs =
Dim lngIndex As Long
lngIndex = vrs.Index
Open
Abre a versão especificada de um documento. Retorna um objeto Document que representa o documento aberto.
Sub OpenVersion()
Dim mydoc As Document
Set mydoc = Documents.Open("C:\MyFiles\Report.doc")
If mydoc.Versions.Count > 0 Then
mydoc.Versions(mydoc.Versions.Count).Open
Else
MsgBox "There are no saved versions for this document."
End If
End Sub
SavedBy
Retorna o nome do usuário que salvou a versão especificada do documento. Cadeia de caracteressomente leitura.
If ActiveDocument.Versions.Count >= 1 Then
MsgBox ActiveDocument.Versions(1).SavedBy
End If