Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl
  Select Case .Title
    Case "HomePhone", "CellPhone", "WorkPhone", "OtherRefererPhone", "GuardianPhone", "EmergencyContactPhone", "PhysicianPhone"
      .Range.Text = Format(.Range.Text, "(###) ###-####")
    Case "PHN"
      .Range.Text = Format(.Range.Text, "#####-####")
  Case "ApptTimeTop"
    .Range.Text = Format(.Range.Text, "@ #########")
  Case "DateOfBirth"
    ContentControl.Range.Tables(1).Cell(6, 1).Range.Paragraphs.Last.Range.Text = DateDiff("yyyy", CDate(.Range.Text), Now)
  End Select
End With
End Sub