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