If cmbhlevels.Value = "1" Then
ActiveDocument.AttachedTemplate.AutoTextEntries("z_TOC1").Insert Where _
:=Selection.Range, RichText:=True
End If
If cmbhlevels.Value = "2" Then
ActiveDocument.AttachedTemplate.AutoTextEntries("z_TOC2").Insert Where _
:=Selection.Range, RichText:=True
End If