Formatvorlagen schützen

13/06/2008 - 17:07 von Martin Zürcher | Report spam
Hallo

Ich benütze zum löschen unbenützter Formatvorlagen (Word 2003) das
untenstehende Script. Nun möchte ich einzelnen Formatvorlagen vor dem
Löschvorgang schützen, kann ich dies elegant lösen.

Sub DeleteNotUsedStyles()


Dim FV As Style


For Each FV In ActiveDocument.Styles
If FV.BuiltIn = False Then
With ActiveDocument.Content.Find
.ClearFormatting
.Style = FV.NameLocal
.Execute FindText:="", Format:=True
If .Found = False Then FV.Delete
End With
End If
Next FV


End Sub

Besten Dank für die Hilfe

Gruss Martin
 

Lesen sie die antworten

#1 Cindy M.
13/06/2008 - 18:19 | Warnen spam
Hi Martin,

Ich benütze zum löschen unbenützter Formatvorlagen (Word 2003) das
untenstehende Script. Nun möchte ich einzelnen Formatvorlagen vor dem
Löschvorgang schützen, kann ich dies elegant lösen.



Auf dem ersten Blick...

If FV.BuiltIn = False Then
Select Case 'die FV hier auflisten
'Nichts tun?
Case Else
With ActiveDocument.ContentFind
'usw.

Sub DeleteNotUsedStyles()


Dim FV As Style


For Each FV In ActiveDocument.Styles
If FV.BuiltIn = False Then
With ActiveDocument.Content.Find
.ClearFormatting
.Style = FV.NameLocal
.Execute FindText:="", Format:=True
If .Found = False Then FV.Delete
End With
End If
Next FV




Cindy Meister
Co-Autor von »Microsoft Word-Programmierung Das Handbuch« (MS Press)
http://www.word.mvps.org
http://homepage.swissonline.ch/cindymeister

Rückfragen & Antworten nur in der Newsgroup, bitte!

Ähnliche fragen