Public Sub Sync_Example
Dim vsoSync As Sync
Dim currentStatus As Integer
Set vsoSync = ActiveDocument.Sync
currentStatus = vsoSync.Status
If currentStatus = msoSyncStatusLatest
Msgbox "You have the most up-to-date copy."
Msgbox "You need to update."
Was this page helpful?
Your feedback about this content is important. Let us know what you think.