Makro zum Entfernen des Postfixes in Titelzeile

de-users
#1

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

#2

Hallo Andreas,

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

" - OpenOffice.org Writer" ist 24 Zeichen lang

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

" - LibreOffice Writer" ist 21 Zeichen lang

Die Bedingung wird also nie erfüllt.

Gruß

Robert

#3

Robert Großkopf schrieb:

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

" - LibreOffice Writer" ist 21 Zeichen lang

Danke. :slight_smile:
Hab die beiden falschen Angaben ersetzt.
Klappt.

Andreas