Klasse Version - Version (Word VBA)

Die Klasse Version stellt eine einzelne Version eines Dokuments dar.

Comment

Gibt den Kommentar zurück, der mit der angegebenen Version eines Dokuments verbunden ist.

If ActiveDocument.Versions.Count >= 1 Then 
 MsgBox Prompt:=ActiveDocument.Versions(1).Comment, _ 
 Title:="First Version Comment" 
End If

Date

Das Datum und die Uhrzeit des Speicherns der Dokumentversion.

Dim docActive As Document 
 
Set docActive = ActiveDocument 

Delete

Löscht die angegebene Version.

Dim vrs As Version: Set vrs =  
vrs.Delete

Index

Gibt einen Wert vom Typ Long zurück, der die Position eines Elements in einer Auflistung darstellt.

Dim vrs As Version: Set vrs =  
Dim lngIndex As Long
lngIndex = vrs.Index

Open

Öffnet die angegebene Version eines Dokuments.

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

Gibt den Namen des Benutzers zurück, der die angegebene Version des Dokuments gespeichert hat.

If ActiveDocument.Versions.Count >= 1 Then 
 MsgBox ActiveDocument.Versions(1).SavedBy 
End If