title image


Smiley Re: Alle Index-Markierungen auf einmal entfernen




Hallo!



Hier ein Programm.



Einbau siehe:

http://mypage.bluewin.ch/reprobst/WordFAQ/Button.htm









Sub DeleteAlleIndexEintraegeUndDenIndex()





Dim fieldMyField1 As Field ' Alle Felder im Dokument durchgehen

Dim strMeldung As String ' Für MsgBox

Dim MyIndex1 As Index ' Für die Indices





If Documents.Count <= 0 Then Exit Sub



strMeldung = "Sind Sie sicher, dass Sie alle Einträge und den " & _

"Index löschen wollen?" & _

vbNewLine & _

"Aktives Dokument ist " & _

ActiveDocument.Name & _

"."

If MsgBox(strMeldung, vbCritical + vbYesNoCancel, "") vbYes Then End



strMeldung = " Sind Sie wirklich sicher? "

If MsgBox(strMeldung, vbCritical + vbYesNo, "") vbYes Then End



For Each fieldMyField1 In ActiveDocument.Fields

If fieldMyField1.Type = wdFieldIndexEntry Then

fieldMyField1.Delete

End If

Next fieldMyField1



' For Each MyIndex1 In ActiveDocument.Indexes

' MyIndex1.Delete

' Next MyIndex1



MsgBox "Löschen beendet.", _

vbInformation, _

"" & ": Löschen"



End Sub





Gruß!



C.





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: