Beschreibung

Erzeugt eine Datenmaske für Manuskripte (Deutsches Exilarchiv)

Historie

Datum

geändert von

Beschreibung

2011-07-05

Althaus

neu erstellt

Code

dnb_dea.js

function DatenmaskeDEAMss()
{
	DatenmaskeEinfuegen("DEAMss");
}
Textdatei

Name

maskeDEAMss.txt 

0500 Haxe
0600 ++
0701 
1110 
1500 
1700 
3211 
4000 
4020 
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 Mss()
'********************************************************************
	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 Haxe" & vbCR &_
							"0600 " & vbCR &_
							"0701 " & vbCR &_
							"1110 " & vbCR &_
							"1500 " & vbCR &_
							"1700 " & vbCR &_
							"3211 " & vbCR &_
							"4000 " & vbCR &_
							"4020 " & 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 "0600", True, False, True
	Application.ActiveWindow.Title.EndOfField

 	
End Sub

Seitenanfang

  • Keine Stichwörter