Calculate week in Word document based on date entered into same document

Guessed · #1 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.

ArviLaanemets · #2 11-16-2019, 11:10 AM

Thanks!

I'll try this out at Monday.

ArviLaanemets · #3 11-18-2019, 12:25 AM

Quote:

Originally Posted by Guessed

In your Word document ...

Hi

It worked, but I didn't get full information last week, so I had to modify a bit

The document is printed out when a delivery is sent. The date is inserted automatically whenever the document is opened (the field is created using Insert > Date and Time). So instead of Document_ContentControlOnExit() I had to use

Code:

Private Sub Document_Open()
  
    ActiveDocument.SelectContentControlsByTitle("TheWeek")(1).Range.Text = DatePart("ww", Date, 2, 2)

End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
split word document based on bookmarks with each new document title of the bookmark	megatronixs	Word VBA	9	09-05-2020 02:29 PM
data entered in one workbook should be updated in other relevant workbook based on the date	vedha	Excel	0	04-24-2015 08:45 PM
calculate date if date entered in cell, do nothing if blank	ConfuddledOne	Excel	3	11-07-2014 09:37 AM
Formula to auto calculate Day of the week based on Date	prasad@dmci.ca	Excel	1	11-29-2011 01:05 PM