OpenOffice.info

Hi Thomas,

vielen Dank für das Makro!!!!!

Da muss ich mich jetzt erst mal durchwursteln. Das wird ein bischen dauern. Ich werde Dir meine "Erfolge" berichten, wenn's soweit ist.

Viele Grüße!
Werner

sub Del_Excel_Formate
	dim oStyleFamilies as object, oStyles as object
	dim aStNamen
	oStyleFamilies = thisComponent.getStyleFamilies
	for i = 0 to oStyleFamilies.getCount()-1
		oStyles = oStyleFamilies.getByIndex(i)
		REM Liste der Vorlagennamen innerhalb der Gruppe
		aStNamen() = oStyles.getElementNames()
		for j = 0 to uBound(aStNamen())
			if lcase(left(aStNamen(j), 5)) = "excel" then   'Zellvorlagen
			   oStyles.removeByName(aStNamen(j))
			elseif lcase(left(aStNamen(j), 9)) = "pagestyle" then   'Seitenvorlagen
			   oStyles.removeByName(aStNamen(j))
			end if
		next j
	next i	
end sub

Hey Werner,

ok, gefunden:

[code]sub Del_Excel_Formate
dim oStyleFamilies as object, oStyles as object
dim aStNamen
oStyleFamilies = thisComponent.getStyleFamilies
for i = 0 to oStyleFamilies.getCount()-1
oStyles = oStyleFamilies.getByIndex(i)
REM Liste der Vorlagennamen innerhalb der Gruppe
aStNamen() = oStyles.getElementNames()
for j = 0 to uBound(aStNamen())
if lcase(left(aStNamen(j), 5)) = "excel" then 'Zellvorlagen
oStyles.removeByName(aStNamen(j))
elseif lcase(left(aStNamen(j), 9)) = "pagestyle" then 'Seitenvorlagen
oStyles.removeByName(aStNamen(j))
end if
next j
next i
end sub[/code]

Beim Excel-Import entstehen verschiedene Vorlagen: Alle Zellvorlagen beginnen mit "Excel_CondFormat_", alle Seitenvorlagen mit "PageStyle", hinzu kommen diverse Zellvormat-Vorlagen in den Seitenvorlagen, die über das Frontend nicht angezeigt werden. Auch die beginnen mit "Excel_CondFormat_".

Ich hoffe, es hilft ;-)

Viele Grüße
Thomas

Hi Thomas,

ich bin mir sicher, dass ich die Zellvorlagen nicht mehr brauche, da mein Projekt ein Neuanfang sein soll! :-) Daher muss der alte Kram weg.

Ich dachte mir schon, dass man das nur mit einem Makro machen kann. Aber ein Versuch war's ja wert, erst einmal die Löschen-Alles-Methode zu finden.

Wenn Du das Makro noch hast, das wäre toll. Dann brauche ich das Rad nicht nochmal neu zu erfinden. Mit Makros kann ich schon ein bischen umgehen. Natürlich noch lange nicht so wie Du.

Vielen Dank und schöne Grüße
Werner

Hey Werner,

hmm, die werden automatisch beim Import erzeugt - sicher, dass du sie nicht noch brauchst?
Alle erzeugten Vorlagen löschen lässt sich m.W. nur durch ein Makro erledigen (so habe ich es immer gemacht ;-) ).

Wenn ich es noch finde, pioste ich dir gerne den Code - ein bischen Ahnung von Makros musst du aber mitbringen.

Viele Grüße
Thomas

Hallo,

wie kann ich alle Zellvorlagen auf einmal löschen?

Ich habe eine alte Exceltabelle importiert und da sind plötzlich hunderte von Zellvorlagen drin. Die alle manuell zu löschen ist eine heiden Arbeit.

Vielen Dank für eure hilfreichen Tipps!

Schöne Grüße
Werner