Beschreibung

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

function DatenmaskeDEAGesamtt()
{
	DatenmaskeEinfuegen("DEAGesamtt");
}
Textdatei

Name

maskeDEAGesamtt.txt 

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
'********************************************************************
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

Seitenanfang

  • Keine Stichwörter