Partilhar via

Propriedade Sync.Status (Office)

  • Artigo

Obtém o status da sincronização entre a cópia local do documento ativo e a cópia do servidor. Somente leitura.

Observação

A partir do Microsoft Office 2010, este objeto ou membro foi preterido e não deve ser usado.

Sintaxe

expressão. Status

expressão Obrigatório. Uma variável que representa um objeto Sync.

Comentários

Use a propriedade Status para determinar se a cópia local do documento ativo está sincronizada com a cópia do servidor compartilhado. Use o método GetUpdate para atualizar o status.

Use os seguintes métodos e propriedades quando apropriado para responder a várias condições de status:

  • msoSyncStatusConflict. True quando as cópias locais e do servidor tiverem alterações. Use the ResolveConflict method to resolve the differences.

  • msoSyncStatusError. Verifique a propriedade ErrorType .

  • msoSyncStatusLocalChanges. True quando somente a cópia local tiver alterações. Use the PutUpdate method to save local changes to the server copy.

  • msoSyncStatusNewerAvailable. True quando somente a cópia do servidor tiver alterações. Close and re-open the document to work with the latest copy from the server.

  • msoSyncStatusSuspended. Use o método Unsuspend para retomar a sincronização.

A propriedade Status retorna uma única constante da lista na seguinte ordem de precedência:

  1. msoSyncStatusNoSharedWorkspace

  2. msoSyncStatusError

  3. msoSyncStatusSuspended

  4. msoSyncStatusConflict

  5. msoSyncStatusNewerAvailable

  6. msoSyncStatusLocalChanges

  7. msoSyncStatusLatest

Exemplo

O exemplo a seguir examina a propriedade Status e age adequadamente para sincronizar as cópias local e do servidor do documento se necessário.

    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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.