Seitenhistorie
Funktion
Beschreibung
erstellt e. Tp-Satz aus e. Titel (im Bearb.-Schirm) (alter Name: TpSatzAusTitel)
TPSatzAusTitel --> Zeile 1719 - 1741
Code in WinIBW2 (Makro/VBScript)Sub
Sub TpSatzAusTitel()
'*****************************************************************************
On error resume next
Dim NamePersonMitLebensdaten
Application.ActiveWindow.Title.StartOfField
Application.ActiveWindow.Title.WordRight
Application.ActiveWindow.Title.EndOfField true
NamePersonMitLebensdaten = Application.ActiveWindow.Title.GetSelection()
Application.ActiveWindow.Title.DeleteSelection
'Send the command "ein n" to the system and display the data in a new window
Application.ActiveWindow.Command "ein n", True
'auskommentiert 07.04.08: Feld 012 /xv
'"012 /xv" & vbcr & "100 " & NamePersonMitLebensdaten & vbcr & "101 " & vbcr &_
'neu 07.04.08: Feld 012 /v
Application.ActiveWindow.Title.InsertText "005 Tp" & vbcr & "011 /f" & vbcr &_
"012 /v" & vbcr & "100 " & NamePersonMitLebensdaten & vbcr & "101 " & vbcr &_
"200 " & vbcr & "300 |a|" & vbcr & "315 " & vbcr & "811 "
Application.ActiveWindow.Title.StartOfBuffer
Application.ActiveWindow.Title.Find "101", True, False, True
Application.ActiveWindow.Title.EndOfField False
End Sub