Hilfe:Abbildungen

Aus Einbandforschung
Wechseln zu: Navigation, Suche

Abbildungen sind ein unerlässlicher Teil der Erfassung von Bucheinbänden.

Jedes erfasste Objekt soll mit aussagekräftigen Abbildungen versehen werden. So können unter anderem Fehler korrigiert und Details der Erfassung ergänzt werden, auch ohne das Objekt vorliegen zu haben.

Erfassungsmaske - Beispiel:

HilfeAbbildung.jpg

Um die erste Abbildung einzufügen auf "Weitere hinzufügen" klicken.

Bilder können hier direkt mittels "Datei hochladen" hochgeladen werden. Der Dateiname wird dann im Feld "AbbildungDatei" automatisch ergänzt.

Die Bilder können auch vorab hochgeladen (Link dazu ganz links).

Ein automatisches Hochladen mehrerer Abbildungen ist durch den Administrator Benutzer:Tkj möglich.

Bei vorab hochgeladenen Dateien muss der enstprechende Dateiname durch Eingabe eines Teils des Dateinamens im Feld "AbbildungDatei" ausgewählt werden.

Es sind Konventionen zur Benennung von Abbildungen im Wiki einzuhalten, für Verlagseinbände siehe Hilfe:Datensatznamen.

Beim Hochladen von Bildern sind unbedingt die Urheberrechte einzuhalten. Sollten eigene Urheberrechte beansprucht werden, so ist dies an jedem Bild zu vermerken.

Sollten Urheberrechtsverstöße bemerkt werden, so sollten diese umgehend den Mitarbeitern des Wikis bekanntgemacht werden, damit die entsprechenden Bilder entfernt werden können.

Dieses Wiki dient ausschließlich wissenschaftlichen Zwecken zur Erforschung von Bucheinbänden.

Automatisierung

Upload

1. Das Hochladen kann auch automatisiert mit erfolgen, Tools Commonist, Vicuna. Problem: die neue Version von Mediawiki 1.27.0 bereitet aufgrund neuer Parameter beim Einloggen das automatisierte Hochladen, 1.26.3 funktioniert.

ACHTUNG! Dies ist mit großer Vorsicht zu erledigen und soll nur in Absprache mit dem Administrator erfolgen!

Liste für Datensatz automatisch erstellen

Der Upload kann auch mittels des normalen Uploads des Wikis erfolgen ("Datei hochladen").

Nun kann eine Liste der Dateien mittels

dir /b > 1.txt

auf der Kommandozeile erfolgen. Diese Dateiliste (Dateiname 1.txt) kann in MS-Word mit folgendem Makro in Vorlagen für das Wiki umgewandelt werden. Weitere Anweisungen im Kopf des Makros befolgen.

Sub aaa_Wiki_Vorlagenliste_VerlagseinbandAbbildung()
'
' aaa_Wiki_Vorlagenliste_VerlagseinbandAbbildung_erstellen
'
' Liste der VerlagseinbandAbbildung-en für das direkt Einfügen in einen Verlagseinbanddatensatz
' Voraussetzung: dir /b > 1.txt
' sooft ausführen, wie Dateien vorhanden
' ACHTUNG! AbbildungBeschreibung muss eventuell korrigiert werden: u.a. Ruecken => ü, Monogramm => Gestalter
' am Ende alles markieren, kopieren, im Wiki Verlagseinbanddatensatz 'bearbeiten' und zwischen den Vorlagen
' {{VerlagseinbandKopf... und {{VerlagseinbandAnfang... einfügen und speichern
' zum Schluss in Formular bearbeiten und ordnen, gegebenfalls AbbildungBeschreibung korrigieren
'
   If ActiveWindow.View.SplitSpecial = wdPaneNone Then
       ActiveWindow.ActivePane.View.Type = wdNormalView
   Else
       ActiveWindow.View.Type = wdNormalView
   End If
   Selection.TypeText Text:="{{VerlagseinbandAbbildung"
   Selection.TypeParagraph
   Selection.TypeText Text:="|AbbildungDatei="
   Selection.EndKey Unit:=wdLine, Extend:=wdExtend
   Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = "_"
       .Replacement.Text = " "
       .Forward = True
       .Wrap = wdFindStop
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   Selection.EndKey Unit:=wdLine
   Selection.Find.ClearFormatting
   With Selection.Find
       .Text = "---"
       .Replacement.Text = " "
       .Forward = False
       .Wrap = wdFindStop
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.MoveRight Unit:=wdCharacter, Count:=1
   Selection.EndKey Unit:=wdLine, Extend:=wdExtend
   Selection.MoveLeft Unit:=wdCharacter, Count:=5, Extend:=wdExtend
   Selection.Copy
   Selection.EndKey Unit:=wdLine
   Selection.TypeParagraph
   Selection.TypeText Text:="|AbbildungBeschreibung="
   Selection.PasteAndFormat (wdFormatOriginalFormatting)
   Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = " "
       .Replacement.Text = ""
       .Forward = False
       .Wrap = wdFindStop
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = "-"
       .Replacement.Text = " "
       .Forward = False
       .Wrap = wdFindStop
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "ue"
       .Replacement.Text = "ü"
       .Forward = False
       .Wrap = wdFindStop
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   Selection.EndKey Unit:=wdLine
   Selection.TypeParagraph
   Selection.TypeText Text:="}}"
   Selection.HomeKey Unit:=wdLine
   Selection.MoveDown Unit:=wdLine, Count:=1
End Sub