Sub ContentControls_Add()
'
Dim Текущая_дата_и_время_с_секундами As String
Текущая_дата_и_время_с_секундами = Now
'например: 20.06.2015 16:03:23
Debug.Print Текущая_дата_и_время_с_секундами
 
Dim objCC_Start As ContentControl
Set objCC_Start = ActiveDocument.ContentControls.Add(wdContentControlRichText, Selection.Start)
'название добавляемого ContentControl
objCC_Start.Title = Текущая_дата_и_время_с_секундами & " Начало"
Set objCC_Start = Nothing
 
 
Dim objCC_End As ContentControl
Set objCC_End = ActiveDocument.ContentControls.Add(wdContentControlRichText, Selection.End)
'название добавляемого ContentControl
objCC_End.Title = Текущая_дата_и_время_с_секундами & " Конец"
Set objCC_End = Nothing
 
End Sub