DocumentLibraryVersion-Objekt (Office)
Das DocumentLibraryVersion-Objekt stellt eine einzelne gespeicherte Version eines freigegebenen Dokuments dar, für das die Versionsverwaltung aktiviert ist und das in einer Dokumentbibliothek auf dem Server gespeichert ist. Jedes DocumentLibraryVersion -Objekt ist Mitglied der DocumentLibraryVersions -Auflistung des aktiven Dokuments.
Hinweise
Jedes DocumentLibraryVersion-Objekt stellt eine gespeicherte Version des aktiven Dokuments dar. Wenn die Versionsverwaltung aktiviert ist, wird eine neue Version auf dem Server erstellt, wenn die unten aufgeführten Aktionen ausgeführt werden. Zusätzliche Versionen werden nicht jedes Mal erstellt, wenn der Benutzer Änderungen am geöffneten Dokument speichert.
- Einchecken
- Speichern: Eine neue Version wird auf dem Server erstellt, wenn der Benutzer das Dokument nach dem Öffnen zum ersten Mal speichert. Zusätzliche Änderungen, die gespeichert werden, während das Dokument geöffnet ist, gelten für dieselbe Version.
- Restore
- Upload
Verwenden Sie die Eigenschaften Modified, ModifiedBy und Comments, um Informationen zu einer gespeicherten Version eines freigegebenen Dokuments zurückzugeben.
Verwenden Sie die Open -Methode zum Öffnen einer früheren Version oder die Wiederherstellen -Methode, um anstatt der aktuellen Version eine frühere Version wiederherzustellen. Verwenden Sie die Delete -Methode, um eine Version zu löschen.
Beispiel
Im folgenden Beispiel werden die Eigenschaften der einzelnen gespeicherten Versionen des aktiven Dokuments angezeigt.
Dim dlvVersions As Office.DocumentLibraryVersions
Dim dlvVersion As Office.DocumentLibraryVersion
Dim strVersionInfo As String
Set dlvVersions = ActiveDocument.DocumentLibraryVersions
If dlvVersions.IsVersioningEnabled Then
strVersionInfo = "This document has " & _
dlvVersions.Count & " versions: " & vbCrLf
For Each dlvVersion In dlvVersions
strVersionInfo = strVersionInfo & _
" - Version #: " & dlvVersion.Index & vbCrLf & _
" - Modified by: " & dlvVersion.ModifiedBy & vbCrLf & _
" - Modified on: " & dlvVersion.Modified & vbCrLf & _
" - Comments: " & dlvVersion.Comments & vbCrLf
Next
Else
strVersionInfo = "Versioning not enabled for this document."
End If
MsgBox strVersionInfo, vbInformation + vbOKOnly, "Version Information"
Set dlvVersion = Nothing
Set dlvVersions = Nothing
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.