OpenOffice.info

Code: Alles auswählen

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