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:davepo...@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-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org
---------------------------------------------------------------------
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org
