Sub TitelPostfixAusblenden
  For i = 0 to Stardesktop.Frames.count-1
  titel = stardesktop.Frames(i).title
  If right(titel,21) = " - LibreOffice Writer" Then
  stardesktop.Frames(i).title = left(titel,(len(titel)-21))
  End If
  Next i
End sub