Microsoft Office Forums - View Single Post - [Solved] Linking 2 dates

gmayor · 06-08-2016, 06:04 AM

OK. Add the following to the ThisDocument module of the document

Code:

Option Explicit

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
    If ContentControl.Title = "Issue Date" Then
        If Not ContentControl.Range.Text = ContentControl.PlaceholderText Then
            ActiveDocument.SelectContentControlsByTitle("Expiry Date").Item(1).Range.Text = _
            DateAdd("m", 12, CDate(ContentControl.Range.Text))
        End If
    End If
End Sub

Save the document as a macro enabled template and create new documents from it. As you tab out of the first date field the second one reflects 12 added months.