BKNorm

Sub BKNorm()
'********************************************************************
	On error resume next
	Application.ActiveWindow.Title.StartOfField
	Application.ActiveWindow.Title.WordRight
	Application.ActiveWindow.Title.EndOfField true
	Application.ActiveWindow.ClipBoard = Application.ActiveWindow.Title.GetSelection()
	Application.ActiveWindow.Title.DeleteSelection
	' msgbox Application.ActiveWindow.ClipBoard
	Application.ActiveWindow.Command "rec n;f bk " & Application.ActiveWindow.ClipBoard, True
	Application.ActiveWindow.ClipBoard = Application.ActiveWindow.Variable("P3GPP")
		'wegen Fehler bei Kurzanzeige: Prüfung ob Voll- (Doctype = Tk) oder Kurzanzeige (Normdaten-Doctype = ths)
		if not ((Application.ActiveWindow.Variable("P3GTG") = "8A" and Application.ActiveWindow.DocType = "Tk") or (Application.ActiveWindow.Variable("P3GTG") = "7A" and Application.ActiveWindow.DocType = "ths") ) then
		'msgbox 	Application.ActiveWindow.DocType & vbcrlf & _
		'		Application.ActiveWindow.Variable("P3GTG")
		Achtung "Kein Normdatensatz gefunden," & vbcrlf & "Funktion muß beendet werden."
		exit Sub
		else
		Application.ActiveWindow.CloseWindow
		Application.ActiveWindow.Title.InsertText "!" & Application.ActiveWindow.ClipBoard & "!"
		end if
End Sub