Sub Alle_Index_Eintraege_loeschen()
 Dim MeinIndex As Field
   For Each MeinIndex In ActiveDocument.Fields
      If MeinIndex.Type = wdFieldIndexEntry Then
         MeinIndex.Delete
      End If
   Next
End Sub