Document.CheckIn-Methode (Word)
Gibt ein Dokument von einem lokalen Computer an einen Server zurück und versieht das lokale Dokument mit Schreibschutz, damit es lokal nicht mehr bearbeitet werden kann.
Syntax
Ausdruck. CheckIn (SaveChanges, Comments, MakePublic)
expression Erforderlich. Eine Variable, die ein Document-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| SaveChanges | Optional | Boolescher Wert | Mit dem Wert True wird das Dokument an der Serverposition gespeichert. Der Standardwert ist True. |
| Kommentare | Optional | Variant | Kommentare zur Revision des eingecheckten Dokuments (trifft nur zu, wenn SaveChanges gleich True ist). |
| MakePublic | Optional | Boolescher Wert | Mit dem Wert True kann der Benutzer das Dokument nach dem Einchecken veröffentlichen. Dadurch wird das Dokument zum Genehmigungsverfahren weitergeleitet, sodass möglicherweise eine schreibgeschützte Version des Dokuments für Benutzer veröffentlicht werden kann (trifft nur zu, wenn SaveChanges gleich True ist). Der Standardwert ist False. |
Hinweise
Damit die in Microsoft Word integrierten Features für die Zusammenarbeit genutzt werden können, müssen Dokumente auf einem Computer mit Microsoft SharePoint Portal Server gespeichert werden.
Beispiel
In diesem Beispiel wird geprüft, ob das angegebene Dokument auf dem Server eingecheckt werden kann. In diesem Fall wird es gespeichert und geschlossen und zurück auf den Server eingecheckt.
Sub CheckInOut(docCheckIn As String)
If Documents(docCheckIn).CanCheckin = True Then
Documents(docCheckIn).CheckIn
MsgBox docCheckIn & " has been checked in."
Else
MsgBox "This file cannot be checked in " &
"at this time. Please try again later."
End If
End Sub
Um die CheckInOut-Unterroutine aufzurufen, verwenden Sie die folgende Unterroutine, und ersetzen Sie "https://servername/workspace/report.doc" mit dem Dateinamen einer tatsächlichen Datei auf dem Server, die weiter oben im Abschnitt "Hinweise" erwähnt wurde.
Sub CheckDocInOut()
Call CheckInOut (docCheckIn:="https://servername/workspace/report.doc")
End Sub
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.