You are viewing a plain text version of this content. The canonical link for it is here.
Posted to users-de@openoffice.apache.org by Dave <da...@gmail.com> on 2016/04/21 19:46:21 UTC
Mehrere Formatvorlagen gleichzeitig löschen?
Liebe User,
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.
Viele Grüße
Dave
Re: Mehrere Formatvorlagen gleichzeitig löschen?
Posted by Jörg Schmidt <jo...@j-m-schmidt.de>.
Hallo Karl,
> From: Karl Zeiler [mailto:karl.zeiler@t-online.de]
> als ich auf den von dir genannten Link klickte, erhielt ich
> mit Firefox
> nur eine zip-Datei ohne jeden Inhalt (0 KB).
Kann ich nicht bestätigen. Das zip ist 321KB groß, aktuell nochmals überprüft mit InternetExplorer 11 und FireFox 45.0.2.
Im Ürigen, selbst wenn mein Link eine 0-Byte Datei liefern würde, was soll es dagegen helfen auf eine Seite zu verlinken die GENAU DEN GLEICHEN Link enthält?
Denn auf der von Dir angegebnenen Seite verbirgt sich hinter:
"Download aller Dateien zu diesem Artikel 1014-166.zip"
Exakt der von mir bereits gepostete Link:
ftp://ftp.heise.de/pub/ct/listings/1014-166.zip
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: users-de-unsubscribe@openoffice.apache.org
For additional commands, e-mail: users-de-help@openoffice.apache.org
Re: Mehrere Formatvorlagen gleichzeitig löschen?
Posted by Karl Zeiler <ka...@t-online.de>.
Hallo Jörg,
Am 22.04.2016 um 16:48 schrieb Jörg Schmidt:
> Hallo,
>
>> From: Karl Zeiler [mailto:karl.zeiler@t-online.de]
>
>> 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/
>
> Und EXAKT den dafür passenden Link hatte ich angegeben, nämlich:
> ftp://ftp.heise.de/pub/ct/listings/1014-166.zip
>
> Oder wo liegt Deiner Meinung nach der Vorteil erst auf die Seite:
> http://www.heise.de/ct/ftp/10/14/166/
als ich auf den von dir genannten Link klickte, erhielt ich mit Firefox
nur eine zip-Datei ohne jeden Inhalt (0 KB).
Also googelte ich mit deinen Informationen nach "Writer-Tools" und
"Thomas Krumbein". So stieß ich schließlich auf den von mir genannten
Link mit der Extension.
Schönen Abend
Karl
---------------------------------------------------------------------
To unsubscribe, e-mail: users-de-unsubscribe@openoffice.apache.org
For additional commands, e-mail: users-de-help@openoffice.apache.org
Re: Mehrere Formatvorlagen gleichzeitig löschen?
Posted by Dave <da...@gmail.com>.
Ich nochmals: wenn du mir kurz die Struktur von styles.xml erklären
könntest, und mir sagen, welche man nicht löschen sollte, könnte ich einen
Perl-Skript schreiben, um die überflüssigen Zeilen zu entfernen.... Ich
gehe davon aus, dass es pro Style eine Zeile ist? Oder gibt es da
komplexere Strukturen, auf die man achten müsste? Danke für jede Hilfe.
Am 22. April 2016 um 16:56 schrieb Dave <da...@gmail.com>:
> Also Jörg, ich habe die extension gedownloadet, extrahiert und in
> OpenOffice integriert. So weit so gut. Lässt sich auch über das Menü
> aufrufen. Aber es bleibt das Problem, dass nicht alle überflüssigen Styles
> gelöscht werden (oder habe ich was übersehen?). Am liebsten wäre es mir,
> wenn er alles, was nicht zum minimalen Standard von OpenOffice ist, löschen
> würde, also alle nicht von Haus aus zu OpenOffice gehörenden Styles (auch
> die Seitenvorlagen etc.). Danach könnte ich die paar Styles, die ich
> tatsächlich brauche, neu kreieren.
>
> Am 22. April 2016 um 16:48 schrieb Jörg Schmidt <jo...@j-m-schmidt.de>:
>
>> Hallo,
>>
>> > From: Karl Zeiler [mailto:karl.zeiler@t-online.de]
>>
>> > 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/
>>
>> Und EXAKT den dafür passenden Link hatte ich angegeben, nämlich:
>> ftp://ftp.heise.de/pub/ct/listings/1014-166.zip
>>
>> Oder wo liegt Deiner Meinung nach der Vorteil erst auf die Seite:
>> http://www.heise.de/ct/ftp/10/14/166/
>>
>> Zu gehen um dann dort den Downloadlink der Extension anzuklicken den Du
>> aus meiner Email auch direkt anklicken kannst?
>>
>>
>> Gruß
>> Jörg
>>
>>
>> ---------------------------------------------------------------------
>> To unsubscribe, e-mail: users-de-unsubscribe@openoffice.apache.org
>> For additional commands, e-mail: users-de-help@openoffice.apache.org
>>
>>
>
Re: Mehrere Formatvorlagen gleichzeitig löschen?
Posted by Dave <da...@gmail.com>.
Also Jörg, ich habe die extension gedownloadet, extrahiert und in
OpenOffice integriert. So weit so gut. Lässt sich auch über das Menü
aufrufen. Aber es bleibt das Problem, dass nicht alle überflüssigen Styles
gelöscht werden (oder habe ich was übersehen?). Am liebsten wäre es mir,
wenn er alles, was nicht zum minimalen Standard von OpenOffice ist, löschen
würde, also alle nicht von Haus aus zu OpenOffice gehörenden Styles (auch
die Seitenvorlagen etc.). Danach könnte ich die paar Styles, die ich
tatsächlich brauche, neu kreieren.
Am 22. April 2016 um 16:48 schrieb Jörg Schmidt <jo...@j-m-schmidt.de>:
> Hallo,
>
> > From: Karl Zeiler [mailto:karl.zeiler@t-online.de]
>
> > 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/
>
> Und EXAKT den dafür passenden Link hatte ich angegeben, nämlich:
> ftp://ftp.heise.de/pub/ct/listings/1014-166.zip
>
> Oder wo liegt Deiner Meinung nach der Vorteil erst auf die Seite:
> http://www.heise.de/ct/ftp/10/14/166/
>
> Zu gehen um dann dort den Downloadlink der Extension anzuklicken den Du
> aus meiner Email auch direkt anklicken kannst?
>
>
> Gruß
> Jörg
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: users-de-unsubscribe@openoffice.apache.org
> For additional commands, e-mail: users-de-help@openoffice.apache.org
>
>
Re: Mehrere Formatvorlagen gleichzeitig löschen?
Posted by Jörg Schmidt <jo...@j-m-schmidt.de>.
Hallo,
> From: Karl Zeiler [mailto:karl.zeiler@t-online.de]
> 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/
Und EXAKT den dafür passenden Link hatte ich angegeben, nämlich:
ftp://ftp.heise.de/pub/ct/listings/1014-166.zip
Oder wo liegt Deiner Meinung nach der Vorteil erst auf die Seite:
http://www.heise.de/ct/ftp/10/14/166/
Zu gehen um dann dort den Downloadlink der Extension anzuklicken den Du aus meiner Email auch direkt anklicken kannst?
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: users-de-unsubscribe@openoffice.apache.org
For additional commands, e-mail: users-de-help@openoffice.apache.org
Re: Mehrere Formatvorlagen gleichzeitig löschen?
Posted by Dave <da...@gmail.com>.
Das ist perfekt, genau das ist es, wonach ich suchte, ein programm, das
alle vorlagen, außer den defaults, löscht. muss ich in einem ruhigen moment
ausprobieren. danke, jörg
Am 23. April 2016 um 08:58 schrieb Jörg Schmidt <jo...@j-m-schmidt.de>:
> > From: Jörg Schmidt [mailto:joesch@j-m-schmidt.de]
>
> > Ich habe nun angeboten Dir ein komplett fertiges Makro zu
> > liefern was genau auf Deine Anfordertungen passt WENN Du mir
> > nur mitteilst wie die Vorlagen heißen die gelöscht werden müssen.
> > Natürlich nicht im Einzelnen, sondern sowas wie: alle
> > entsprechenden Vorlagennamen beginnen mit "Convert" oder
> > ähnlicher Art der Beschreibung.
>
> Da ich die gewünschten Namen immer noch nicht weiß, und um das Thema hier
> zumindest temporär abzuschliesen, ist hier ein Makro das in Textdokumenten
> alle Vorlagen löschen sollte die nicht zu den Default-Vorlagen gehören:
>
> sub WT_Del_Formate
> Dim kkk
> Dim tt
>
> kkk = ""
> Dim AlleVorlagen() As String
>
> AlleVorlagen = Array("Standard", "Footnote Symbol", "Page Number",
> "Caption characters", _
> "Drop Caps", "Numbering Symbols", "Bullet Symbols", "Internet
> link", "Visited Internet Link", _
> "Placeholder", "Index Link", "Endnote Symbol", "Line numbering",
> "Main index entry", _
> "Footnote anchor", "Endnote anchor", "Rubies", "Vertical Numbering
> Symbols", "Emphasis", _
> "Citation", "Strong Emphasis", "Source Text", "Example", "User
> Entry", "Variable", _
> "Definition", "Teletype", "Standard", "Heading", "Text body",
> "List", "Caption", "Index", _
> "First line indent", "Hanging indent", "Text body indent",
> "Salutation", "Signature", _
> "List Indent", "Marginalia", "Heading 1", "Heading 2", "Heading
> 3", "Heading 4", _
> "Heading 5", "Heading 6", "Heading 7", "Heading 8", "Heading 9",
> "Heading 10", "Title", _
> "Subtitle", "Numbering 1 Start", "Numbering 1", "Numbering 1 End",
> "Numbering 1 Cont.", _
> "Numbering 2 Start", "Numbering 2", "Numbering 2 End", "Numbering
> 2 Cont.", _
> "Numbering 3 Start", "Numbering 3", "Numbering 3 End", "Numbering
> 3 Cont.", _
> "Numbering 4 Start", "Numbering 4", "Numbering 4 End", "Numbering
> 4 Cont.", _
> "Numbering 5 Start", "Numbering 5", "Numbering 5 End", "Numbering
> 5 Cont.", _
> "List 1 Start", "List 1", "List 1 End", "List 1 Cont.", "List 2
> Start", "List 2", _
> "List 2 End", "List 2 Cont.", "List 3 Start", "List 3", "List 3
> End", "List 3 Cont.", _
> "List 4 Start", "List 4", "List 4 End", "List 4 Cont.", "List 5
> Start", "List 5", _
> "List 5 End", "List 5 Cont.", "Index Heading", "Index 1", "Index
> 2", "Index 3", _
> "Index Separator", "Contents Heading", "Contents 1", "Contents 2",
> "Contents 3", _
> "Contents 4", "Contents 5", "User Index Heading", "User Index 1",
> "User Index 2", _
> "User Index 3", "User Index 4", "User Index 5", "Contents 6",
> "Contents 7", _
> "Contents 8", "Contents 9", "Contents 10", "Illustration Index
> Heading", _
> "Illustration Index 1", "Object index heading", "Object index 1", _
> "Table index heading", "Table index 1", "Bibliography Heading",
> "Bibliography 1", _
> "User Index 6", "User Index 7", "User Index 8", "User Index 9",
> "User Index 10", _
> "Header", "Header left", "Header right", "Footer", "Footer left",
> "Footer right", _
> "Table Contents", "Table Heading", "Illustration", "Table",
> "Text", _
> "Frame contents", "Footnote", "Addressee", "Sender", "Endnote",
> "Drawing", _
> "Quotations", "Preformatted Text", "Horizontal Line", "List
> Contents", _
> "List Heading", "Standard", "First Page", "Left Page", "Right
> Page", _
> "Envelope", "Index", "HTML", "Footnote", "Endnote", "Landscape",
> "Frame", _
> "Graphics", "OLE", "Formula", "Marginalia", "Watermark", "Labels",
> _
> "Numbering 1", "Numbering 2", "Numbering 3", "Numbering 4",
> "Numbering 5", _
> "List 1", "List 2", "List 3", "List 4", "List 5")
>
> 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())
> tt = 0
> For k = 0 To UBOUND(AlleVorlagen())
> If aStNamen(j) <> AlleVorlagen(k) Then
> tt = tt + 1
> End If
> Next k
> 'If aStNamen(j) = "jms1" Then Msgbox
> UBOUND(AlleVorlagen())
> If tt > UBOUND(AlleVorlagen()) Then
> oStyles.removeByName(aStNamen(j))
> kkk = kkk & CHR(34) & aStNamen(j) &
> CHR(34) & " - "
> End If
> next j
> next i
> If kkk = "" Then kkk = "[Keine]"
> Msgbox "Gelöscht wurden die Vorlagen: " & CHR(13) & kkk
> 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
>
>
Re: Mehrere Formatvorlagen gleichzeitig löschen?
Posted by Jörg Schmidt <jo...@j-m-schmidt.de>.
> From: Jörg Schmidt [mailto:joesch@j-m-schmidt.de]
> Ich habe nun angeboten Dir ein komplett fertiges Makro zu
> liefern was genau auf Deine Anfordertungen passt WENN Du mir
> nur mitteilst wie die Vorlagen heißen die gelöscht werden müssen.
> Natürlich nicht im Einzelnen, sondern sowas wie: alle
> entsprechenden Vorlagennamen beginnen mit "Convert" oder
> ähnlicher Art der Beschreibung.
Da ich die gewünschten Namen immer noch nicht weiß, und um das Thema hier zumindest temporär abzuschliesen, ist hier ein Makro das in Textdokumenten alle Vorlagen löschen sollte die nicht zu den Default-Vorlagen gehören:
sub WT_Del_Formate
Dim kkk
Dim tt
kkk = ""
Dim AlleVorlagen() As String
AlleVorlagen = Array("Standard", "Footnote Symbol", "Page Number", "Caption characters", _
"Drop Caps", "Numbering Symbols", "Bullet Symbols", "Internet link", "Visited Internet Link", _
"Placeholder", "Index Link", "Endnote Symbol", "Line numbering", "Main index entry", _
"Footnote anchor", "Endnote anchor", "Rubies", "Vertical Numbering Symbols", "Emphasis", _
"Citation", "Strong Emphasis", "Source Text", "Example", "User Entry", "Variable", _
"Definition", "Teletype", "Standard", "Heading", "Text body", "List", "Caption", "Index", _
"First line indent", "Hanging indent", "Text body indent", "Salutation", "Signature", _
"List Indent", "Marginalia", "Heading 1", "Heading 2", "Heading 3", "Heading 4", _
"Heading 5", "Heading 6", "Heading 7", "Heading 8", "Heading 9", "Heading 10", "Title", _
"Subtitle", "Numbering 1 Start", "Numbering 1", "Numbering 1 End", "Numbering 1 Cont.", _
"Numbering 2 Start", "Numbering 2", "Numbering 2 End", "Numbering 2 Cont.", _
"Numbering 3 Start", "Numbering 3", "Numbering 3 End", "Numbering 3 Cont.", _
"Numbering 4 Start", "Numbering 4", "Numbering 4 End", "Numbering 4 Cont.", _
"Numbering 5 Start", "Numbering 5", "Numbering 5 End", "Numbering 5 Cont.", _
"List 1 Start", "List 1", "List 1 End", "List 1 Cont.", "List 2 Start", "List 2", _
"List 2 End", "List 2 Cont.", "List 3 Start", "List 3", "List 3 End", "List 3 Cont.", _
"List 4 Start", "List 4", "List 4 End", "List 4 Cont.", "List 5 Start", "List 5", _
"List 5 End", "List 5 Cont.", "Index Heading", "Index 1", "Index 2", "Index 3", _
"Index Separator", "Contents Heading", "Contents 1", "Contents 2", "Contents 3", _
"Contents 4", "Contents 5", "User Index Heading", "User Index 1", "User Index 2", _
"User Index 3", "User Index 4", "User Index 5", "Contents 6", "Contents 7", _
"Contents 8", "Contents 9", "Contents 10", "Illustration Index Heading", _
"Illustration Index 1", "Object index heading", "Object index 1", _
"Table index heading", "Table index 1", "Bibliography Heading", "Bibliography 1", _
"User Index 6", "User Index 7", "User Index 8", "User Index 9", "User Index 10", _
"Header", "Header left", "Header right", "Footer", "Footer left", "Footer right", _
"Table Contents", "Table Heading", "Illustration", "Table", "Text", _
"Frame contents", "Footnote", "Addressee", "Sender", "Endnote", "Drawing", _
"Quotations", "Preformatted Text", "Horizontal Line", "List Contents", _
"List Heading", "Standard", "First Page", "Left Page", "Right Page", _
"Envelope", "Index", "HTML", "Footnote", "Endnote", "Landscape", "Frame", _
"Graphics", "OLE", "Formula", "Marginalia", "Watermark", "Labels", _
"Numbering 1", "Numbering 2", "Numbering 3", "Numbering 4", "Numbering 5", _
"List 1", "List 2", "List 3", "List 4", "List 5")
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())
tt = 0
For k = 0 To UBOUND(AlleVorlagen())
If aStNamen(j) <> AlleVorlagen(k) Then
tt = tt + 1
End If
Next k
'If aStNamen(j) = "jms1" Then Msgbox UBOUND(AlleVorlagen())
If tt > UBOUND(AlleVorlagen()) Then
oStyles.removeByName(aStNamen(j))
kkk = kkk & CHR(34) & aStNamen(j) & CHR(34) & " - "
End If
next j
next i
If kkk = "" Then kkk = "[Keine]"
Msgbox "Gelöscht wurden die Vorlagen: " & CHR(13) & kkk
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
Re: Mehrere Formatvorlagen gleichzeitig löschen?
Posted by Jörg Schmidt <jo...@j-m-schmidt.de>.
> -----Original Message-----
> From: Dave [mailto:davepolit@gmail.com]
> Sent: Friday, April 22, 2016 6:41 PM
> To: users-de@openoffice.apache.org
> Subject: Re: Mehrere Formatvorlagen gleichzeitig löschen?
>
> na ja mit " Anfänger" ist alles relativ. ich hab zwar in perl ein paar
> Sachen geschrieben, aber zum ersten mal in meinem Leben in
> die styles.xml
> reingeschaut. ich wusste nicht einmal dass es so eine gibt. Aber wenn
> dich meine fragerei nervt, musst du ja nicht auf meine Fragen
> eingehen und
> mir "prosa" vorwerfen...
Sag mal Dave 'geht’s eigentlich noch'?
Du wolltest Hilfe beim Löschen der Vorlagen und hast auch richtig erkannt das das per Script bzw. Makro ginge.
Ich habe nun angeboten Dir ein komplett fertiges Makro zu liefern was genau auf Deine Anfordertungen passt WENN Du mir nur mitteilst wie die Vorlagen heißen die gelöscht werden müssen.
Natürlich nicht im Einzelnen, sondern sowas wie: alle entsprechenden Vorlagennamen beginnen mit "Convert" oder ähnlicher Art der Beschreibung.
Als "Prosa" bezeichne ich her allein Deine diversen Randbemerkungen die _momentan nicht nötig sind_ um das Problem zu lösen. z.B. das Du Perl kannst oder das das Makro von Thomas nicht genau das tut was Du brauchst u.ä.
Und wenn ich kurz angebunden scheine dann deshalb weil ich Dich seit Jahren aus der Community kenne und eigentlich erwarte das Du kapierst das ich Dir schnell helfen will ohne das ich diese Absicht noch besonders hervorheben müsste.
Währest Du hier auf der Liste ein Neuling hätte ich Dich sicherlich ausführlicher angesprochen, da wir uns aber kennen hielt ich das nicht für nötig denn ich glaubte nicht das solche Missverständnisse entstünden wie sie nun doch entstanden sind (=Du glaubst ich will Dich angreifen und ich will Dir nur helfen, aber dazu nicht weiter diskutieren sondern einfach ein fertiges Makro liefern)
Außerdem:
Über die styles.xml weiß ich nichts Spezielles sonst hätte ich mich dazu geäußert. (Um per Makro Vorlagen zu löschgen muss ich aber auch nichts über die styles.xml wissen, denn das geht über die/das API (application programming interface)
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: users-de-unsubscribe@openoffice.apache.org
For additional commands, e-mail: users-de-help@openoffice.apache.org
Re: Mehrere Formatvorlagen gleichzeitig löschen?
Posted by Dave <da...@gmail.com>.
na ja mit " Anfänger" ist alles relativ. ich hab zwar in perl ein paar
Sachen geschrieben, aber zum ersten mal in meinem Leben in die styles.xml
reingeschaut. ich wusste nicht einmal dass es so eine gibt. Aber wenn
dich meine fragerei nervt, musst du ja nicht auf meine Fragen eingehen und
mir "prosa" vorwerfen...
On Friday, 22 April 2016, Jörg Schmidt <jo...@j-m-schmidt.de> wrote:
> Hallo,
>
> > From: Dave [mailto:davepolit@gmail.com <javascript:;>]
>
> > Danke für die Hilfe ... löst aber nicht alle Probleme mit
> > überflüssigen
> > Vorlagen, z.B. die vielen "Converts" oder von anderen
> > Anwendern irrtümlich
> > 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 überflüssige Zeug zu importieren und auch das
> > Häkchen neben
> > "Überschreiben" gesetzt, hat aber das Zeug leider nicht entfernt.
> >
> > Ich konnte im styles.xml die eine oder andere Vorlage
> > erfolgreich löschen,
> > ist aber auch sehr zeitaufwändig und vor allem kann man leicht Fehler
> > machen. Eigentlich müsste man ein Skript schreiben, das diese
> > xml direkt
> > bearbeitet... In Perl würde ich das sogar hinkriegen, wüßte aber nicht
> > genau, was alles ich löschen darf und was nicht.
>
> Sorry, nur wenn Dir ja glücklicherweise bereits klar ist das man
> eigentlich ein Script schreiben müsste, was soll dann die ganze Prosa?
>
> Ich gehe davon aus das Du kein Anfänger bist und hatte _erahnend das das
> Makro von Thomas für Deine Zwecke angepasst werden muss_, bereits den
> Makro-Code gepostet, damit Du entweder:
>
> -den Code selbst anpassen kannst
>
> Oder:
>
> -mitteilen kannst welche Vorlagen gelöscht werden müssen, also die Namen
> der Vorlagen(*), damit ich oder jemand anderes das Makro entsprechend
> anpassen kann.
>
> (*)
> Beim geposteten Makro sind das _derzeitig_ alle Vorlagen deren Namen mit
> "WW8" oder "WW9" beginnen.
>
>
>
>
> Gruß
> Jörg
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: users-de-unsubscribe@openoffice.apache.org
> <javascript:;>
> For additional commands, e-mail: users-de-help@openoffice.apache.org
> <javascript:;>
>
>
Re: Mehrere Formatvorlagen gleichzeitig löschen?
Posted by Jörg Schmidt <jo...@j-m-schmidt.de>.
Hallo,
> From: Dave [mailto:davepolit@gmail.com]
> Danke für die Hilfe ... löst aber nicht alle Probleme mit
> überflüssigen
> Vorlagen, z.B. die vielen "Converts" oder von anderen
> Anwendern irrtümlich
> 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 überflüssige Zeug zu importieren und auch das
> Häkchen neben
> "Überschreiben" gesetzt, hat aber das Zeug leider nicht entfernt.
>
> Ich konnte im styles.xml die eine oder andere Vorlage
> erfolgreich löschen,
> ist aber auch sehr zeitaufwändig und vor allem kann man leicht Fehler
> machen. Eigentlich müsste man ein Skript schreiben, das diese
> xml direkt
> bearbeitet... In Perl würde ich das sogar hinkriegen, wüßte aber nicht
> genau, was alles ich löschen darf und was nicht.
Sorry, nur wenn Dir ja glücklicherweise bereits klar ist das man eigentlich ein Script schreiben müsste, was soll dann die ganze Prosa?
Ich gehe davon aus das Du kein Anfänger bist und hatte _erahnend das das Makro von Thomas für Deine Zwecke angepasst werden muss_, bereits den Makro-Code gepostet, damit Du entweder:
-den Code selbst anpassen kannst
Oder:
-mitteilen kannst welche Vorlagen gelöscht werden müssen, also die Namen der Vorlagen(*), damit ich oder jemand anderes das Makro entsprechend anpassen kann.
(*)
Beim geposteten Makro sind das _derzeitig_ alle Vorlagen deren Namen mit "WW8" oder "WW9" beginnen.
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: users-de-unsubscribe@openoffice.apache.org
For additional commands, e-mail: users-de-help@openoffice.apache.org
Re: Mehrere Formatvorlagen gleichzeitig löschen?
Posted by Dave <da...@gmail.com>.
Danke für die Hilfe ... löst aber nicht alle Probleme mit überflüssigen
Vorlagen, z.B. die vielen "Converts" oder von anderen Anwendern irrtümlich
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 überflüssige Zeug zu importieren und auch das Häkchen neben
"Überschreiben" gesetzt, hat aber das Zeug leider nicht entfernt.
Ich konnte im styles.xml die eine oder andere Vorlage erfolgreich löschen,
ist aber auch sehr zeitaufwändig und vor allem kann man leicht Fehler
machen. Eigentlich müsste man ein Skript schreiben, das diese xml direkt
bearbeitet... In Perl würde ich das sogar hinkriegen, wüßte aber nicht
genau, was alles ich löschen darf und was nicht.
Am 22. April 2016 um 11:29 schrieb Karl Zeiler <ka...@t-online.de>:
> 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
>
>
Re: Mehrere Formatvorlagen gleichzeitig löschen?
Posted by Karl Zeiler <ka...@t-online.de>.
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
Re: Mehrere Formatvorlagen gleichzeitig löschen?
Posted by Jörg Schmidt <jo...@j-m-schmidt.de>.
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