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