Sync.Status-Eigenschaft (Office)

Artikel
10/16/2024

Ruft den Synchronisierungsstatus der lokalen Kopie des aktiven Dokuments mit dem Serverexemplar ab. Schreibgeschützt.

Hinweis

Ab Microsoft Office 2010 ist dieses Objekt oder Element veraltet und sollte nicht verwendet werden.

Syntax

Ausdruck. Status

expression Erforderlich. Eine Variable, die ein Sync -Objekt darstellt.

Hinweise

Verwenden Sie die Status -Eigenschaft, um zu bestimmen, ob die lokale Kopie des aktiven Dokuments mit der freigegebenen Serverkopie synchronisiert wird. Verwenden Sie die GetUpdate -Methode, um den Status zu aktualisieren.

Verwenden Sie ggf. die folgenden Methoden und Eigenschaften, um auf verschiedene status Bedingungen zu reagieren:

msoSyncStatusConflict. True , wenn sowohl die lokale Kopie als auch die Serverkopie Änderungen aufweisen. Use the ResolveConflict method to resolve the differences.
msoSyncStatusError. Überprüfen Sie die ErrorType-Eigenschaft .
msoSyncStatusLocalChanges. True , wenn nur die lokale Kopie Änderungen aufweist. Use the PutUpdate method to save local changes to the server copy.
msoSyncStatusNewerAvailable. True , wenn nur die Serverkopie Änderungen aufweist. Close and re-open the document to work with the latest copy from the server.
msoSyncStatusSuspended. Verwenden Sie die Unsuspend-Methode , um die Synchronisierung fortzusetzen.

Die Status -Eigenschaft gibt eine einzelne Konstante aus der Liste in der folgenden Reihenfolge:

msoSyncStatusNoSharedWorkspace
msoSyncStatusError
msoSyncStatusSuspended
msoSyncStatusConflict
msoSyncStatusNewerAvailable
msoSyncStatusLocalChanges
msoSyncStatusLatest

Beispiel

Im folgenden Beispiel wird die Status -Eigenschaft untersucht und führt eine geeignete Aktion zum Synchronisieren der lokalen und der Serverkopie des Dokuments bei Bedarf.

    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

Siehe auch

Elemente des Sync-Objekts

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.

Freigeben über