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 <[email protected]>: > > From: Jörg Schmidt [mailto:[email protected]] > > > 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: [email protected] > For additional commands, e-mail: [email protected] > >
