Edition Oaa zu Oaq, Einfügen
0701 @Keine Archivierung in DNB; Bereitstellung durch Zugriff auf Originalserver@
Anforderung durch Frau Ackermann 2D
Zeile 6651 - 6678
Sub KeineArchivierung()
'********************************************************************
'Funktion für in DNBL zu bearbeitende, aber nicht in DNB archivierte Schweizer Hochschulschriften mit Direktzugriff auf externen Server
On error resume next
Dim strKuerzel, strStandort
Call HoleKuerzel(strKuerzel)
Call HoleDNBStandort(strStandort)
Application.ActiveWindow.Command "k", False
Application.ActiveWindow.Title.FindTag "0599", 0, True, True
Application.ActiveWindow.Title.EndOfField true
Application.ActiveWindow.Title.DeleteSelection
Application.ActiveWindow.Title.FindTag "0600", 0, True, True
Application.ActiveWindow.Title.EndOfField true
Application.ActiveWindow.Title.DeleteSelection
Application.ActiveWindow.Title.FindTag "0500", 0, False, True
Application.ActiveWindow.Title.EndOfField true
Application.ActiveWindow.Title.InsertText "Oaq" & vbcr &_
"0598 NP555" & vbcr &_
"1700 /1CH"
Application.ActiveWindow.Title.FindTag "0701", 0, False, True
Application.ActiveWindow.Title.CharRight 3, True
Application.ActiveWindow.Title.InsertText "@Keine Archivierung@"
End Sub