Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
Inhalt |
---|
Beschreibung
Auszug |
---|
Erzeugt eine Datenmaske für den Gesamttitel (Deutsches Exilarchiv) |
Historie
Datum | geändert von | Beschreibung |
---|---|---|
2011-07-05 | Althaus | neu erstellt |
Code
dnb_dea.js
Codeblock |
---|
function DatenmaskeDEAGesamtt() { DatenmaskeEinfuegen("DEAGesamtt"); } |
Textdatei
Name | maskeDEAGesamtt.txt |
Codeblock |
---|
0500 Qdxe 0600 0701 ++ 3040 4000 4201 4233 4705 4709 4801 8598 |
Hinweise:
++ | Cursorposition nach Ausführen der Funktion |
** | Platzhalter für das Bearbeiterkürzel |
## | Platzhalter für den Standort |
|| | Platzhalter für die Abteilung |
VB-Script
Codeblock |
---|
'******************************************************************** Sub Gesamtt() '******************************************************************** On error resume next Dim strKuerzel Call HoleKuerzel(strKuerzel) 'Place your function code here Application.ActiveWindow.Command "e t", False Application.ActiveWindow.Title.InsertText "0500 Qdxe" & vbCR &_ "0600 " & vbCR &_ "0701 " & vbCR &_ "3040 " & vbCR &_ "4000 " & vbCR &_ "4201 " & vbCR &_ "4233 " & vbCR &_ "4705 " & vbCR &_ "4709 " & vbCR &_ "4801 " & vbCR &_ "8598 " Application.ActiveWindow.Title.StartOfBuffer Application.ActiveWindow.Title.Find "0701", True, False, True Application.ActiveWindow.Title.EndOfField End Sub |
Überblick
Inhalte