Private Sub Document_Open()
Call InitializeDocument
End Sub
 
Private Sub Document_New()
Call InitializeDocument
End Sub
 
Sub InitializeDocument()
Dim oCC As ContentControl
Set oCC = ActiveDocument.SelectContentControlsByTitle("Your Name").Item(1)
With oCC
  .Type = wdContentControlText
  .Range.Text = Application.UserName
  .Type = wdContentControlDropdownList
End With
Document_ContentControlOnExit oCC, False
Load DrawingNumberEntryForm
DrawingNumberEntryForm.Show
End Sub