Private Sub AutoClose()
Dim CCtrl As ContentControl, Cancel As Boolean: Cancel = False
With ActiveDocument
  For Each CCtrl In .ContentControls
    If CCtrl.ShowingPlaceholderText = True Then Cancel = True: CCtrl.Range.Select: Exit For
  Next
  If Cancel = True Then
    MsgBox "Please complete all the items"
    .Saved = False
    SendKeys "{ESC}"
  End If
End With
End Sub