Document.Sync (Word)

Dim synSync As Office.Sync
Set synSync = ActiveDocument.Sync