Тогда можно в модуль ThisDocument записать такой код:
'---------------------------------------------------------------------------------------
' Author : The_Prist(Щербаков Дмитрий)
' Профессиональная разработка приложений для MS Office любой сложности
' Проведение тренингов по MS Excel
' http://www.excel-vba.ru
' info@excel-vba.ru
' WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
' Purpose:
'---------------------------------------------------------------------------------------
Option Explicit
Dim IsNonEvents As Boolean
Private Sub Document_ContentControlOnExit(ByVal ChangedContentControl As ContentControl, Cancel As Boolean)
If ChangedContentControl.Type <> wdContentControlDate Then
Exit Sub
End If
Dim oCCtrl As ContentControl
Dim v
If IsNonEvents Then Exit Sub
v = ChangedContentControl.Range.Text
IsNonEvents = True
For Each oCCtrl In ThisDocument.ContentControls
If oCCtrl.Type = wdContentControlDate Then
If oCCtrl.Range.Text <> v Then
oCCtrl.Range.Text = v
End If
End If
Next
IsNonEvents = False
End Sub
и при изменении любого поля с датой остальным будет назначена та же дата сразу после того, как Вы выйдете из режима редактирования поля.
Во вложении файл с реализацией. Желтые поля - это поля даты, взаимоизменяемые. Макросы должны быть разрешены.