Beschreibung
Erzeugt eine Datenmaske für Lebensdokumente (Deutsches Exilarchiv)
Historie
Datum |
geändert von |
Beschreibung |
---|---|---|
2011-07-05 |
Althaus |
neu erstellt |
Code
dnb_dea.js
function DatenmaskeDEALebdok() { DatenmaskeEinfuegen("DEALebdok"); }
Textdatei
Name |
maskeDEALebdok.txt |
0500 Laxe 0600 0701 ++ 1110 1700 3040 4000 4030 4060 4063 4180 4201 4215 4221 4226 4500 4501 4503 4509 4705 4710
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
'******************************************************************** Sub Lebdok() '******************************************************************** 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 Laxe" & vbCR &_ "0600 " & vbCR &_ "0701 " & vbCR &_ "1110 " & vbCR &_ "1700 " & vbCR &_ "3040 " & vbCR &_ "4000 " & vbCR &_ "4030 " & vbCR &_ "4060 " & vbCR &_ "4063 " & vbCR &_ "4180 " & vbCR &_ "4201 " & vbCR &_ "4215 " & vbCR &_ "4221 " & vbCR &_ "4226 " & vbCR &_ "4500 " & vbCR &_ "4501 " & vbCR &_ "4503 " & vbCR &_ "4509 " & vbCR &_ "4705 " & vbCR &_ "4710 " Application.ActiveWindow.Title.StartOfBuffer Application.ActiveWindow.Title.Find "0701", True, False, True Application.ActiveWindow.Title.EndOfField End Sub
Überblick
Inhalte