Unmengen nichtbenutzter Formatvorlagen löschen?

[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

[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?

[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

[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

Code: Alles auswählen

if Instr(1, asParaStyleNames(i) , "WW-") then

ändern in

Code: Alles auswählen

if Instr(1, asParaStyleNames(i) , "WW8") then

Hilft das?