Mailing-List: contact users-de-help@openoffice.apache.org; run by ezmlm
Precedence: bulk
Reply-To: users-de@openoffice.apache.org
Subject: =?UTF-8?Q?Re:_Mehrere_Formatvorlagen_gleichzeitig_l=c3=b6schen=3f?=
To: users-de@openoffice.apache.org
References: 
 <CAJ_8aCeaxwGMXcWUbFB2CJxv1Tfv4upFufUhgJ=2_S7Yfa5byg@mail.gmail.com>
 <ED38F27BCF624DD5AF88E380692CBDDA@Esprimo7935>
From: Karl Zeiler <karl.zeiler@t-online.de>
Message-ID: <ae05b117-8101-1b72-ae58-23608825f53b@t-online.de>
Date: Fri, 22 Apr 2016 11:29:07 +0200
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:45.0) Gecko/20100101
 Thunderbird/45.0
MIME-Version: 1.0
In-Reply-To: <ED38F27BCF624DD5AF88E380692CBDDA@Esprimo7935>
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit

Hallo Jörg,

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ß
Karl

Am 22.04.2016 um 05:38 schrieb Jörg Schmidt:
> Hallo,
>
>> From: Dave [mailto:davepolit@gmail.com]
>
>> weiß jemand, ob es einen Weg gibt, mehrere Formatvorlagen in
>> einem Rutsch
>> zu löschen? Word dichtet am laufenden Band und ganz
>> automatisch bei jedem
>> Transport von einem Programm zum anderen zusätzliche Vorlagen
>> ("converts"
>> ...), die ich gerne loswerden möchte. Aber sie einzeln anzuklicken und
>> löschen ist doch sehr zeitaufwändig. Wäre wirklich praktisch,
>> 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öscht das dort enthaltene Makro alle Vorlagen die mit WW8 oder WW9 beginnen, hier der Code:
>
> '/** WT_Del_Word_Formate
> '*************************************************************************.
> '* @kurztext  löscht alle Word Formatvorlagen
> '* Das Makro löscht alle Word Formatvorlagen, die automatisch erzeugt werden,
> '* wenn eine Worddatei in OOo geöffnet wird. Alle diese Vorlagennamen beginnen
> '* mit WW8 bzw. WW9.
> '*************************************************************************
> '*/
> sub WT_Del_Word_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 ucase(left(aStNamen(j), 3)) = "WW8" then   'Wordformate aus Word 8
> 			   oStyles.removeByName(aStNamen(j))
> 			elseif ucase(left(aStNamen(j), 3)) = "WW9" then   'Wordformate aus Word 9
> 			   oStyles.removeByName(aStNamen(j))
> 			end if
> 		next j
> 	next i	
> end sub
>
>
> Gruß
> Jörg
>
>
> ---------------------------------------------------------------------
> 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