title image


Smiley Re: Entfernen von Indexeinträgen (Word97)
Hallo WolfgangFalls Du sicher bist, dass dich alle Einträge im Hauptteil des Dokumentes befinden, als nicht etwa in Fuss-/Kopfzeile, Textfeldern etc. kannst Du die einfache Variante benutzen:Sub Durchsuchen() Dim Feld As Field For Each Feld In ActiveDocument.Fields If Feld.Type = wdFieldIndexEntry Then Feld.Delete NextEnd SubSonst halt diese Variante verwenden:Private Teil As RangeSub StoriesSequenziellVerarbeiten() For Each Teil In ActiveDocument.StoryRanges StoryDurchsuchen While Not (Teil.NextStoryRange Is Nothing) Set Teil = Teil.NextStoryRange StoryDurchsuchen Wend NextEnd SubPrivate Sub StoryDurchsuchen() Dim Feld As Field For Each Feld In Teil.Fields If Feld.Type = wdFieldIndexEntry Then Feld.Delete NextEnd SubGrussSilvia

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: