Document.CheckIn-Methode (Word)

  • Artikel

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)

Ausdruck: 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.

HinwBemerkungeneise

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.