Geschichte

Funktion

Beschreibung

Zeile 2149 -2160

Code in WinIBW2 (Makro/VBScript)Sub

Sub Geschichte()
'************************************************    
    On error resume next
    Dim GeschichtePhrase
    ' GeschichtePhrase = ":z Geschichte" & vbcr - Leerzeile entfernt ->
    'GeschichtePhrase = ":z Geschichte"    'alte Form bis 2007-01-24
    GeschichtePhrase = ":z Geschichte "    'neue Form ab 2007-01-24, Blank ergänzt
    GeschichtePhrase = Application.LatinToPica(GeschichtePhrase)
    Application.ActiveWindow.Title.InsertText GeschichtePhrase
    
End Sub

Code in WinIBW3 (Javascript)

Erforderliche Änderungen / Ergänzungen