1. Rechter Mausklick -> Quelltext anzeigen.
2. Strg+A -> Strg+C -> Word öffnen -> Strg+V.
3. Ansicht->Makros->Makros anzeigen->Makroname->Erstellen.
4. Ersetzen von Umlauten (äöüß und ÄÖÜ) & Satzzeichen.
5. Prüfen ob alles wie gewollt gefunden wird.
6. Anschließend haben wir dynamische Makros für die Umlaute geschrieben:
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "ä"
.Replacement.Text = "ä"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ä"
.Replacement.Text = "Ä"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ö"
.Replacement.Text = "ö"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False

.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ö"
.Replacement.Text = "Ö"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ü"
.Replacement.Text = "ü"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Ü"
.Replacement.Text = "Ü"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "&szuml;"
.Replacement.Text = "ß"
.Forward = True

.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
7. Das Selbe wurde für die Satzzeichen gemacht:
Sub Satzzeichen()
'
' Satzzeichen Makro
'
'
With Selection.Find
.Text = ";"
.Replacement.Text = ","
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

8. Anschließend mussten wir für die EB-Nummer ein komplexeres Makro schreiben:
Sub EBNummer()
'
' EBNummer Makro
'
'
With Selection.Find
.Text = "EB-Nummer :*([0-9]{1;8}/[0-9]{1;2}/[0-9]{1;3})"
.Replacement.Text = "###5\1###55"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False

.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
9. Für „Bezeichnung“ haben wir folgendes Makro benutzt:
Sub Bezeichnung()
'
' Bezeichnung Makro
'
'
With Selection.Find
.Text = "\<h3\>(*) ,*\</h3\>"
.Replacement.Text = "###4\1###44"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

10. Für „Datierung“ haben wir folgendes Makro benutzt:
Sub Datierung()
'
' Datierung Makro
'
'Sammlungs*bereich:\</td\>\<td*\>(*) ,
With Selection.Find
.Text = "Datierung:\</td\>\<td*([0-9]{4}) ,"
.Replacement.Text = "###3\1###33"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

11. Für „Sammlungsbereich“ haben wir folgendes Makro benutzt:
Sub Sammlungsbereich()
'
' Datierung Makro
'
'
With Selection.Find
.Text = "Sammlungs*bereich:\</td\>\<td*\>(*) ,"
.Replacement.Text = "###2\1###22"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
12. Für „lastbutnotleastthree“ haben wir folgendes Makro benutzt:
Sub Sammlungsbereich()
'
' Datierung Makro
'
'
With Selection.Find
.Text = "Sammlungs*bereich:\</td\>\<td*\>(*) ,"
.Replacement.Text = "###2\1###22"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

13. Für „Restvonhtmlwechdamit“ haben wir folgendes Makro benutzt:
Sub Restvonhtmlwechdamit()
'
' Datierung Makro
'
'Sammlungs*bereich:\</td\>\<td*\>(*) ,
With Selection.Find
.Text = "\<*\>"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
14. Für „Sortieren“ haben wir folgendes Makro benutzt:
Sub Sortieren()
'
' Datierung Makro
'
'Sammlungs*bereich:\</td\>\<td*\>(*) ,
With Selection.Find
.Text = "*###4(*)###44*###2(*)###22*###3(*)###33*###5(*)###55*###1(*)###11*"
.Replacement.Text = "\4;\1;\3;\2;\5"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True

End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

15. Für „Leerzeichenraus“ haben wir folgendes Makro benutzt:
Sub Leerzeichenraus()
'
' Datierung Makro
'
'Sammlungs*bereich:\</td\>\<td*\>(*) ,
With Selection.Find
.Text = "^13"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
16. Am Schluss müssen folgende Befehle in der richtigen Reihenfolge gestartet werden:
Sub AlleStarten()
Application.Run ("Umlaute")
Application.Run ("Satzzeichen")
Application.Run ("EBNummer")
Application.Run ("Bezeichnung")
Application.Run ("Datierung")
Application.Run ("Sammlungsbereich")
Application.Run ("lastbutnotleastthree")
Application.Run ("Restvonhtmlwechdamit")
Application.Run ("Leerzeichenraus")
Application.Run ("Sortieren")
'u.s.w.
End Sub

Aufgabe Nr. 3
17.Ausdenken der 10 Suchbegriffe:
1) Adenauer
2) Bund
3) Bundeswehr
4) DDR
5) Frankreich
6) Kohl
7) Mauer
8) Merkel
9) Republik
10) Schröder
− Aufrufen der Seite: http://sint.hdg.de/sint/html/suche.html und Eingabe der
Suchbegriffe.
− Jeweils zwei Suchtreffer pro Begriff auswählen, Quellcode als .doc Datei abspeichern und die EB-Nummer als Dateinamen wählen (alle / durch _ ersetzen)
Aufgabe Nr. 4
18. Wir haben das in Aufgabe 2 erstellte Makro an den jeweiligen Quelltexten angewandt.
Erst haben wir das komplette Makro kopiert, sind dann in die Word-Datei gewechselt und haben dort unter dem Reiter „Ansicht“ auf „Makros“ bzw. „Makros anzeigen“ geklickt.
Dort haben wir dann unter „Erstellen“ das bereits in Aufgabe 2 erstellte Makro eingefügt und abgespeichert. Anschließend haben wir wieder ins Word-Dokument gewechselt und dort unter
„Makros“ bzw. „Makros anzeigen“ das erzeugte Makro ausgewählt, auf „Anwenden“ geklickt und gespeichert. Diesen Vorgang haben wir bei allen 20 Quelltexten durchgeführt.
Aufgabe Nr. 5
Sammeln der transformierten Datensätze in der Datei „objekte.txt“
Aufgabe Nr. 6
Erzeugen der Datenbank mit: create database HDG;

Erzeugen der Tabelle mit: create table Objekte (EB_Nummer varchar primary key, Bezeichnung varchar, Datierung varchar,Sammlungsbereich varchar, Schlagwoerter_Begriffe varchar, Schlagwoerter_Namen varchar,
Ausstellungstext varchar);

Füllen der Tabelle mit: bulk insert Objekte from 'D:\objekte.txt' with (fieldterminator = ';', rowterminator = '\n');