Microsoft Office Forums - View Single Post - [Solved] Calculate week in Word document based on date entered into same document

Guessed · 11-15-2019, 06:30 PM

In your Word document, put two content controls
Date Picker Content Control: give it a title of "TheDate"
Plain text Content Control: give it a title of "TheWeek"

Then in your ThisDocument module, add this code

Code:

Private Sub Document_ContentControlOnExit(ByVal aCC As ContentControl, Cancel As Boolean)
  Dim aDate As Date
  If aCC.Title = "TheDate" Then
    aDate = CDate(aCC.Range.Text)
    ActiveDocument.SelectContentControlsByTitle("TheWeek")(1).Range.Text = DatePart("ww", aDate, 2, 2)
  End If
End Sub

Then you can change the date in the TheDate CC and when you move the cursor out, the calculated result will appear in the TheWeek CC.