'OldContentControl - Q - название
'InUndoRedo - В Отменить Повторить True False

Private Sub ActiveDocument_ContentControlBeforeDelete(Q, InUndoRedo)

Beep

End Sub

Private Sub Document_ContentControlBeforeDelete(OldContentControl, InUndoRedo)

MsgBox$ "Удалено поле"

End Sub

Option Explicit

Private Sub Document_ContentControlBeforeDelete(ByVal OldContentControl As ContentControl, ByVal InUndoRedo As Boolean)
Dim Str As String
Dim objCC As ContentControl
Str = OldContentControl.Title     'получаем имя удаляемого контрола
InUndoRedo = True
    For Each objCC In ActiveDocument.ContentControls
        On Error Resume Next 'костыль, помогает справиться с тем, что событие
                             'Document.ContentControlBeforeDelete возникает
                             'не только при удалении контрола через интерфейс Ворда,
                             'но и при удалении данным макросом
        If objCC.Title = Str Then
        objCC.Delete True 'удаляем все остальные контролы с тем же именем
        MsgBox$ "Удалено поле " & OldContentControl.Title
        End If
    Next
End Sub

MsgBox$ "Удалено поле " & OldContentControl.Title

'выделить текст от ContentControl Начало до ContentControl Конец
ActiveDocument.Range( _
            Start:=ActiveDocument.ContentControls(Left(Str, 19) & "&Начало").Range.Start, _
            End:=ActiveDocument.ContentControls(Left(Str, 19) & "&Конец").Range.Start).Select