通过

Sync.Status 属性 (Office)

获取活动文档的本地副本与服务器副本的同步状态。 只读。

注意

自 Microsoft Office 2010 开始，此对象或成员已弃用，不应再行使用。

语法

表达式。地位

expression 是必需的。 一个代表 Sync 对象的变量。

备注

使用 Status 属性可确定活动文档的本地副本是否与共享服务器副本同步。 使用 GetUpdate 方法可刷新状态。

在适当时使用以下方法和属性来响应各种 状态条件：

  • msoSyncStatusConflict。 如果本地副本和服务器副本都发生更改，则为 True。 使用 ResolveConflict 方法可解决这些差异。

  • msoSyncStatusError。 检查 ErrorType 属性。

  • msoSyncStatusLocalChanges。 当只有本地副本发生更改时，其值为 True。 使用 PutUpdate 方法可将本地更改保存到服务器副本中。

  • msoSyncStatusNewerAvailable。 如果只有服务器副本发生更改，则为 True。 关闭并重新打开文档可使用来自服务器中的最新副本。

  • msoSyncStatusSuspended。 使用 Unsuspend 方法恢复同步。

Status 属性按照下面的优先级顺序从列表中返回单个常量：

  1. msoSyncStatusNoSharedWorkspace

  2. msoSyncStatusError

  3. msoSyncStatusSuspended

  4. msoSyncStatusConflict

  5. msoSyncStatusNewerAvailable

  6. msoSyncStatusLocalChanges

  7. msoSyncStatusLatest

示例

下面的示例将检查 Status 属性，并在必要时进行适当的操作以使文档的本地副本与服务器副本同步。

    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

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。

  • Last updated on