Funktion

Beschreibung

erstellt e. Tn-Satz aus e. Titel (im Bearb.-Schirm) (alter Name: TnSatzAusTitel)
TnSatzausTitel --> Zeile 1979 - 2003

Code in WinIBW2 (Makro/VBScript)Sub

Sub TnSatzAusTitel()
'*****************************************************************************
    
    On error resume next
    Dim PersonenName, Kategorie
    Kategorie = Application.ActiveWindow.Title.GetTag()
    Application.ActiveWindow.Title.StartOfField
    Application.ActiveWindow.Title.WordRight
    Application.ActiveWindow.Title.EndOfField true
    PersonenName = Application.ActiveWindow.Title.GetSelection()
    Application.ActiveWindow.Title.DeleteSelection
    Application.ActiveWindow.Command "ein n", True
    'auskommentiert ab 07.04.08: Feld 012 /xv
    'Application.ActiveWindow.Title.InsertText "005 Tn" & vbcr & "011 /f" & vbcr & "012 /xv" & vbcr & "100 " & PersonenName
    'neu ab 07.04.08: Feld 012 /v
    Application.ActiveWindow.Title.InsertText "005 Tn" & vbcr & "011 /f" & vbcr & "012 /v" & vbcr & "100 " & PersonenName
    Application.ActiveWindow.SimulateIBWKey "FR"
    PPN = Application.ActiveWindow.Variable("P3GPP")
    Application.ActiveWindow.CloseWindow
    Application.ActiveWindow.StartOfBuffer
    Application.ActiveWindow.Title.Find """ & Kategorie & """
    Application.ActiveWindow.Title.EndOfField
    Application.ActiveWindow.Title.InsertText "!" & PPN & "!"
    
End Sub


Code in WinIBW3 (Javascript)


Erforderliche Änderungen / Ergänzungen

  • Keine Stichwörter