title image


Smiley Code-Ergänzungen!!! H I L F E
Huhu,



brauche dringend Hilfe!

Habe noch folgenden Code anzubieten:



Sub DeleteStyles()



'LÖSCHT die NICHT integrierten Formatvorlagen

For Each sty In ActiveDocument.Styles

If sty.BuiltIn = False Then sty.Delete

Next sty



End Sub



Es sollen aber die nicht benutzten Formatvorlagen gelöscht werden.



Der erste Quellcode den ich gepostet habe, listet alle Formatvorlagen aus einem Dokument auf. Leider aber nur im Hauptteil des Dokuments und nicht im Fußnotentext!



Wäre über HILFE seh dankbar.



Gruß Sandra

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: