Propiedad Sync.Status (Office)

Obtiene el estado de la sincronización de la copia local del documento activo con la copia del servidor. Solo lectura.

Nota:

A partir de Microsoft Office 2010, este objeto o miembro no se debe usar más.

Sintaxis

expresión. Estado

expresión requerida. Variable que representa un objeto Sync.

Comentarios

Utilice la propiedad Status para determinar si la copia local del documento activo está sincronizada con la copia compartida del servidor. Utilice el método GetUpdate para actualizar el estado.

Use los métodos y propiedades siguientes cuando corresponda para responder a varias condiciones de estado:

• msoSyncStatusConflict. True cuando las copias locales y del servidor tienen cambios. Use the ResolveConflict method to resolve the differences.

• msoSyncStatusError. Compruebe la propiedad ErrorType .

• msoSyncStatusLocalChanges. True cuando solo la copia local tiene cambios. Use the PutUpdate method to save local changes to the server copy.

• msoSyncStatusNewerAvailable. True cuando solo la copia del servidor tiene cambios. Close and re-open the document to work with the latest copy from the server.

• msoSyncStatusSuspended. Use el método Unsuspend para reanudar la sincronización.

La propiedad Status devuelve una de las constantes de la lista en el siguiente orden de prioridad:

1. msoSyncStatusNoSharedWorkspace

2. msoSyncStatusError

3. msoSyncStatusSuspended

4. msoSyncStatusConflict

5. msoSyncStatusNewerAvailable

6. msoSyncStatusLocalChanges

7. msoSyncStatusLatest

Ejemplo:

En el siguiente ejemplo se examina la propiedad Status y se realiza las acciones adecuadas para sincronizar las copias local y del servidor del documento si es necesario.

    Dim objSync As Office.Sync 
    Dim strStatus As String 
    Set objSync = ActiveDocument.Sync 
    If objSync.Status > msoSyncStatusNoSharedWorkspace Then 
        Select Case objSync.Status 
            Case msoSyncStatusConflict 
                objSync.ResolveConflict msoSyncConflictMerge 
                ActiveDocument.Save 
                objSync.ResolveConflict msoSyncConflictClientWins 
                strStatus = "Conflict resolved by merging changes." 
            Case msoSyncStatusError 
                strStatus = "Last error type: " & objSync.ErrorType 
            Case msoSyncStatusLatest 
                strStatus = "Document copies already in sync." 
            Case msoSyncStatusLocalChanges 
                objSync.PutUpdate 
                strStatus = "Local changes saved to server." 
            Case msoSyncStatusNewerAvailable 
                strStatus = "Newer copy available on the server." 
            Case msoSyncStatusSuspended 
                objSync.Unsuspend 
                strStatus = "Synchronization resumed." 
        End Select 
    Else 
        strStatus = "Not a shared workspace document." 
    End If 
    MsgBox strStatus, vbInformation + vbOKOnly, "Sync Information" 
    Set objSync = Nothing 

Consulte también

• Miembros del objeto Sync

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.