Seite 1 von 1
Unmengen nichtbenutzter Formatvorlagen löschen?
Verfasst: Di, 15.06.2010 12:01
von Trudi_Kargus
Hallo,
wir haben aus dem Import von Word-Dokumenten Unmengen unbenutzter Formatforlagen in einigen Dokumenten.
Im Formatvorlagenfenster kann man immer nur eine zur Zeit löschen > das dauert ewig!
Gibt es da einen Trick?
Danke, Dirk
Re: Unmengen nichtbenutzter Formatvorlagen löschen?
Verfasst: Di, 15.06.2010 13:09
von komma4
Willkommen im Forum.
Habe vor Urzeiten mal ein Makro geschrieben, welches nach einem Import eines WORD-Dokuments diese Vorlagen löschte.
Code: Alles auswählen
Sub delWWStyles
iAntwort = msgbox(_
"This macro will remove all Styles WW- in an OOo-Writer document" & _
chr(13) & _
"Press YES to continue or NO to abbort deletion" ,36, "wri_delWWStyles")
if iAntwort = 7 then
exit sub
end if
' user said yes
oDok = ThisComponent
oStyles = oDok.StyleFamilies
oParaStyles = oStyles.getByName("ParagraphStyles")
' all names
asParaStyleNames() = oParaStyles.getElementNames()
for i = 0 to UBound(asParaStyleNames)
' begin with string
if Instr(1, asParaStyleNames(i) , "WW-") then
oParaStyles.removeByName( asParaStyleNames(i) )
End if
next i
End Sub
Keine Ahnung, ob Deine importierten Vorlagen ebenfalls mit der Zeichenkette "WW-" anfangen ... ggfs. den Code anpassen.
Kommst Du damit zurecht?
Re: Unmengen nichtbenutzter Formatvorlagen löschen?
Verfasst: Di, 15.06.2010 14:40
von Trudi_Kargus
Hallo,
habe das mal unter Makros verwalten > Openoffice.org Basic ... in ein neues Modul reinkopiert (beim Dokument).
Kann das auch auf aufrufen und es kommte die Dialogbox von wegen "This macro will remove...",
aber nach drücken von "ja" passiert nichts weiter.
Alle Zeichenvorlagen und Listenvorlagen, die, wie schon richtig vermutet mit WW8... beginnen
sind nach wie vor da...
Schade, schien doch schon mal recht vielversprechend. Da ich leider 0 Ahnung von diesem OOo Basic habe, ist es für mich
auch sinnlos da auf Fehlersuche zu gehen.
Trotzdem erstmal danke, vielleicht kann ja mal irgendwer den Codeschnipsel überfliegen...
Dirk
Re: Unmengen nichtbenutzter Formatvorlagen löschen?
Verfasst: Di, 15.06.2010 20:36
von komma4
Du musst den Code anpassen... meiner löscht (alte) Vorlagen aus Winword, Du hast einen Import aus Winword8
Wenn die Namen mit WW8 beginnen
diese Zeile
ändern in
Hilft das?