Mailing-List: contact users-de-help@openoffice.apache.org; run by ezmlm
Precedence: bulk
Reply-To: users-de@openoffice.apache.org
MIME-Version: 1.0
In-Reply-To: <ae05b117-8101-1b72-ae58-23608825f53b@t-online.de>
References: 
 <CAJ_8aCeaxwGMXcWUbFB2CJxv1Tfv4upFufUhgJ=2_S7Yfa5byg@mail.gmail.com>
 <ED38F27BCF624DD5AF88E380692CBDDA@Esprimo7935>
 <ae05b117-8101-1b72-ae58-23608825f53b@t-online.de>
From: Dave <davepolit@gmail.com>
Date: Fri, 22 Apr 2016 14:44:03 +0200
Message-ID: 
 <CAJ_8aCdUCij2c3E1n9xbgxvKLQS9FHtZXeL2yDa22_JFgCbwRA@mail.gmail.com>
Subject: =?UTF-8?Q?Re=3A_Mehrere_Formatvorlagen_gleichzeitig_l=C3=B6schen=3F?=
To: users-de@openoffice.apache.org
Content-Type: multipart/alternative; boundary=001a1144254cad54700531122f69

--001a1144254cad54700531122f69
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: quoted-printable

Danke f=C3=BCr die Hilfe ... l=C3=B6st aber nicht alle Probleme mit =C3=BCb=
erfl=C3=BCssigen
Vorlagen, z.B. die vielen "Converts" oder von anderen Anwendern irrt=C3=BCm=
lich
hergestellten Vorlagen, oder solchen, die entstehen, wenn OpenOffice auf
Englisch benutzt wurde.

Ich habe es versucht, indem ich die Vorlage eines quasi leeren Dokuments
ohne das ganze =C3=BCberfl=C3=BCssige Zeug zu importieren und auch das H=C3=
=A4kchen neben
"=C3=9Cberschreiben" gesetzt, hat aber das Zeug leider nicht entfernt.

Ich konnte im styles.xml die eine oder andere Vorlage erfolgreich l=C3=B6sc=
hen,
ist aber auch sehr zeitaufw=C3=A4ndig und vor allem kann man leicht Fehler
machen. Eigentlich m=C3=BCsste man ein Skript schreiben, das diese xml dire=
kt
bearbeitet... In Perl w=C3=BCrde ich das sogar hinkriegen, w=C3=BC=C3=9Fte =
aber nicht
genau, was alles ich l=C3=B6schen darf und was nicht.

Am 22. April 2016 um 11:29 schrieb Karl Zeiler <karl.zeiler@t-online.de>:

> Hallo J=C3=B6rg,
>
> das komplette Paket mit den Writer-Tools von Thomas Krumbein gibt es auch
> als Extension zum Download:
>
> http://www.heise.de/ct/ftp/10/14/166/
>
> Gru=C3=9F
> Karl
>
>
> Am 22.04.2016 um 05:38 schrieb J=C3=B6rg Schmidt:
>
>> Hallo,
>>
>> From: Dave [mailto:davepolit@gmail.com]
>>>
>>
>> wei=C3=9F jemand, ob es einen Weg gibt, mehrere Formatvorlagen in
>>> einem Rutsch
>>> zu l=C3=B6schen? Word dichtet am laufenden Band und ganz
>>> automatisch bei jedem
>>> Transport von einem Programm zum anderen zus=C3=A4tzliche Vorlagen
>>> ("converts"
>>> ...), die ich gerne loswerden m=C3=B6chte. Aber sie einzeln anzuklicken=
 und
>>> l=C3=B6schen ist doch sehr zeitaufw=C3=A4ndig. W=C3=A4re wirklich prakt=
isch,
>>> wenn es geht.
>>>
>>
>> Es gibt seit Jahren ein Makro innerhalb der Writer-Tools von Thomas
>> Krumbein das das erledigt.
>>
>> ftp://ftp.heise.de/pub/ct/listings/1014-166.zip
>>
>>
>> Technisch gesagt l=C3=B6scht das dort enthaltene Makro alle Vorlagen die=
 mit
>> WW8 oder WW9 beginnen, hier der Code:
>>
>> '/** WT_Del_Word_Formate
>>
>> '***********************************************************************=
**.
>> '* @kurztext  l=C3=B6scht alle Word Formatvorlagen
>> '* Das Makro l=C3=B6scht alle Word Formatvorlagen, die automatisch erzeu=
gt
>> werden,
>> '* wenn eine Worddatei in OOo ge=C3=B6ffnet wird. Alle diese Vorlagennam=
en
>> beginnen
>> '* mit WW8 bzw. WW9.
>> '***********************************************************************=
**
>> '*/
>> sub WT_Del_Word_Formate
>>         dim oStyleFamilies as object, oStyles as object
>>         dim aStNamen
>>         oStyleFamilies =3D thisComponent.getStyleFamilies
>>         for i =3D 0 to oStyleFamilies.getCount()-1
>>                 oStyles =3D oStyleFamilies.getByIndex(i)
>>                 REM Liste der Vorlagennamen innerhalb der Gruppe
>>                 aStNamen() =3D oStyles.getElementNames()
>>                 for j =3D 0 to uBound(aStNamen())
>>                         if ucase(left(aStNamen(j), 3)) =3D "WW8" then
>>  'Wordformate aus Word 8
>>                            oStyles.removeByName(aStNamen(j))
>>                         elseif ucase(left(aStNamen(j), 3)) =3D "WW9" the=
n
>>  'Wordformate aus Word 9
>>                            oStyles.removeByName(aStNamen(j))
>>                         end if
>>                 next j
>>         next i
>> end sub
>>
>>
>> Gru=C3=9F
>> J=C3=B6rg
>>
>>
>> ---------------------------------------------------------------------
>> To unsubscribe, e-mail: users-de-unsubscribe@openoffice.apache.org
>> For additional commands, e-mail: users-de-help@openoffice.apache.org
>>
>>
>>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: users-de-unsubscribe@openoffice.apache.org
> For additional commands, e-mail: users-de-help@openoffice.apache.org
>
>

--001a1144254cad54700531122f69--