Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
Inhalt |
---|
Beschreibung
Auszug |
---|
Erzeugt eine Datenmaske für Brief vom Nachlass (Deutsches Exilarchiv) |
Historie
Datum | geändert von | Beschreibung |
---|---|---|
2011-07-05 | Althaus | neu erstellt |
Code
dnb_dea.js
Codeblock |
---|
function DatenmaskeDEABrVomNl() { DatenmaskeEinfuegen("DEABrVomNl"); } |
Textdatei
Name | maskeDEABrVomNl.txt |
Codeblock |
---|
0500 Daxe 0600 ++ 0701 1110 1500 1700 3030 3090 3100 3130 4030 4060 4063 4180 4201 4215 4221 4500 4501 4503 4509 4708 4710 |
...
++ | 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 BrVomNL() '******************************************************************** 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 Daxe" & vbCR &_ "0600 " & vbCR &_ "0701 " & vbCR &_ "1110 " & vbCR &_ "1500 " & vbCR &_ "1700 " & vbCR &_ "3030 " & vbCR &_ "3090 " & vbCR &_ "3100 " & vbCR &_ "3130 " & vbCR &_ "4030 " & vbCR &_ "4060 " & vbCR &_ "4063 " & vbCR &_ "4180 " & vbCR &_ "4201 " & vbCR &_ "4215 " & vbCR &_ "4221 " & vbCR &_ "4500 " & vbCR &_ "4501 " & vbCR &_ "4503 " & vbCR &_ "4509 " & vbCR &_ "4708 " & vbCR &_ "4710 " Application.ActiveWindow.Title.StartOfBuffer Application.ActiveWindow.Title.Find "0600", True, False, True Application.ActiveWindow.Title.EndOfField End Sub |
...
Überblick
Inhalte