Sub Document_Open()
Dim oCC As ContentControl
  Set oCC = ActiveDocument.SelectContentControlsByTitle("Name").Item(1)
  oCC.Type = wdContentControlText
  oCC.Range.Text = Application.UserName
  oCC.Type = wdContentControlDropdownList
  Document_ContentControlOnExit oCC, False
lbl_Exit:
  Exit Sub
End Sub