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


Code in WinIBW3 (Javascript)


Erforderliche Änderungen / Ergänzungen

  • Keine Stichwörter