I've got the code for an Excel popup utility that adds a date entry
option to the command bar.  I'm trying to figure out how to convert
it
to work within a Word document.  Can anybody help me convert the
code?  Here it is from Excel:

' append the date entry option to the default command bar when
worksheet opens
Private Sub Workbook_Open()
   Dim NewControl As CommandBarControl
' Assign shortcut to display calendar on SHIFT+CTRL+C
   Application.OnKey "+^{C}", "Module1.OpenCalendar"
' Add item to shortcut menu on open
   On Error Resume Next
   Application.CommandBars("Cell").Controls("Insert Date").Delete
   On Error GoTo 0
   Set NewControl = Application.CommandBars("Cell").Controls.Add
   With NewControl
       .Caption = "Insert Date"
       .OnAction = "Module1.OpenCalendar"
       .BeginGroup = True
   End With
End Sub

'remove the date entry option from the default command bar right
before doc closes
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Delete item from shortcut menu on close
   On Error Resume Next
   Application.CommandBars("Cell").Controls("Insert Date").Delete
End Sub