Sucht aus editiertem Titeldatensatz mit HB-Exemplardaten heraus in neuem Fenster Basisklassifikations-Normdatensatz. Treffer können mit HoleIDN verknüpft werden. Eingabe des Suchbegriff im Datenfeld 5301 Ausgangsfenster: Editschirm Titeldatensatz
Zeile 2932 - 2942
Sub SucheBKNorm() '******************************************************************** 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 End Sub |
keine