Método Document.CheckIn (Word)
Devuelve el documento de un equipo local al servidor y configura el documento local como de sólo lectura, de manera que no se pueda modificar localmente.
Sintaxis
expresión. CheckIn (SaveChanges, Comments, MakePublic)
expresión requerida. Variable que representa un objeto Document.
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| SaveChanges | Opcional | Boolean | True guarda el documento en la ubicación del servidor. El valor predeterminado es True. |
| Comments | Opcional | Variant | Comentarios para la revisión del documento que se está protegiendo (se aplica sólo si SaveChanges es igual a True). |
| MakePublic | Opcional | Boolean | True permite al usuario realizar una publicación en el documento después de haberlo protegido. Esto envía el documento al proceso de aprobación, que puede tener como resultado final que se publique una versión del documento para los usuarios como de sólo lectura (sólo se aplica si SaveChangeses igual a True). El valor predeterminado es Falso. |
Comentarios
Para beneficiarse de las funciones de colaboración integradas en Microsoft Word, los documentos deben almacenarse en Microsoft SharePoint Portal Server.
Ejemplo:
En este ejemplo, se comprueba en el servidor si se puede proteger el documento especificado. En caso afirmativo, se guarda y se cierra el documento, y se vuelve a proteger en el servidor.
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
Para llamar a la subrutina CheckInOut, use la siguiente subrutina y reemplace "https://servername/workspace/report.doc" con el nombre de archivo de un archivo real ubicado en el servidor mencionado anteriormente en la sección Comentarios.
Sub CheckDocInOut()
Call CheckInOut (docCheckIn:="https://servername/workspace/report.doc")
End Sub
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.