[de-users] Makro zum Entfernen des Postfixes in Titelzeile

[Andreas Borutta]

Moin,

in OOo benutzte ich folgendes (Ereignis-)Makro zum Eliminieren des
Postfixes in der Titelzeile.

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

In LibreOffice 3.3 funktioniert

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

jedoch nicht.

Weiß jemand, wie man das Makro unter LO zum Laufen bringt?

Danke.

Andreas
-- 
http://borumat.de


-- 
Informationen zur Abmeldung: E-Mail an users+h...@de.libreoffice.org
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert