OpenOffice.info

Sub Loesche_Vorlagen()
  oDok = ThisComponent
  oVorlAus = oDok.getStyleFamilies.getByName("PageStyles")
  z = oVorlAus.getCount - 1
  For i = 0 To z
    If LEFT(oVorlAus.getByIndex(i).getName, 9) = "Converted" Then
      oVorlAus.removeByName(oVorlAus.getByIndex(i).getName)
      z = z - 1
      i = i - 1
    End If
  Next i
End Sub

z.B. nutze das folgende Makro:

[code]Sub Loesche_Vorlagen()
oDok = ThisComponent
oVorlAus = oDok.getStyleFamilies.getByName("PageStyles")
z = oVorlAus.getCount - 1
For i = 0 To z
If LEFT(oVorlAus.getByIndex(i).getName, 9) = "Converted" Then
oVorlAus.removeByName(oVorlAus.getByIndex(i).getName)
z = z - 1
i = i - 1
End If
Next i
End Sub[/code]

Gruß
Stephan