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