<\/p>\n
Wer seine Anwendung nicht nur mit einer Sprache ausstatten möchte, sondern diese auch in anderen Ländern verfügbar machen will, hat zwei Möglichkeiten: Entweder er erstellt für jede Sprache eine andere Version oder er bringt einer einzigen Anwendung bei, auf Knopfdruck die Sprache zu wechseln. Erfahren Sie, welche Version sinnvoller ist und wie Sie eine mehrsprachige Anwendung in die Tat umsetzen.<\/b><\/p>\n
Vorausgesetzt, Ihre Anwendung ist so ausgereift, dass sie ganz sicher nicht mehr geändert wird, dann können Sie diese einfach kopieren und die enthaltenen Texte an eine andere Sprache anpassen. Da aber spätestens beim Wechsel zu einer anderen Access-Version änderungen anstehen, sollten Sie vorsichtig damit sein: Diese müssen Sie nämlich dann in jeder Sprachversion separat durchführen.<\/p>\n
Anders sieht es aus, wenn Sie eine Anwendung mit Funktionen versehen, die je nach gewünschter Sprache die passenden Texte anzeigen. Der Aufwand, diese Funktionen zu implementieren, ist zwar unumgänglich, und auch bei Erweiterungen oder änderungen der Datenbank fällt ein wenig mehr Arbeit an, aber je mehr Sprachen man unterstützt, desto weniger Aufwand ergibt sich gegenüber der erstgenannten Lösung bei änderungen.<\/p>\n
Betroffene Bereiche<\/b><\/p>\n
Wichtig ist beim Implementieren von Mehrsprachigkeit, sich zunächst genau zu überlegen, wo sich dieses Feature bemerkbar macht und mit welchem Aufwand die Anpassungen verbunden sind. Die folgende Liste zeigt, was Sie beachten müssen:<\/p>\n
Dieser Beitrag lässt die Dokumentation und die Onlinehilfe weg, da diese wohl oder übel in jeder Sprache separat erstellt werden müssen. Die internen Elemente einer Datenbank, wie das Datenmodell, die Bezeichnungen der Access-Objekte und die im VBA-Code verwendeten Bezeichnungen, bleiben ebenfalls außen vor, weil der Benutzer mit diesen nicht in Berührung kommt und wir davon ausgehen, dass nur die Benutzer und nicht die Entwickler unterschiedliche Sprachen erwarten. Mit englischen Bezeichnungen fährt man aber hier wohl meist gut. Wie Sie alles Weitere realisieren, erfahren Sie auf den nächsten Seiten.<\/p>\n
Wohin mit den Informationen<\/b><\/p>\n
Eine wichtige Frage ist, wo Sie die verschiedenen Übersetzungen der in der Anwendung enthaltenen Texte speichern. Man könnte diese in einer Textdatei speichern oder auch aus Ressourcen-Dateien oder der Registry beziehen. Es wäre aber ungünstig, solche Informationen außerhalb der Anwendung zu speichern, wenn dies innerhalb geschehen kann – und zwar in passenden Tabellen, die man auch noch relational miteinander verknüpfen kann.<\/p>\n
Datenmodell<\/b><\/p>\n
Ganz klar zu sein scheint, dass es eine Tabelle mit den verschiedenen Sprachen geben muss. Diese enthält neben dem Primärschlüsselfeld die Bezeichnung der Sprache und gegebenenfalls ein international gültiges Kürzel. Auf die Tatsache, dass der Benutzer die Sprache ja gegebenenfalls beim Auswählen derselben in der jeweiligen Landessprache vorfinden möchte, gehen wir weiter unten ein. Wer gern spielt, kann natürlich auch passende Landesflaggen zur Auswahl anbieten.<\/p>\n
Neben den Sprachen gibt es Begriffe beziehungsweise Texte, die für jede Sprache einmal vorhanden sein müssen. Eine Tabelle, die solche Informationen speichert, enthält also mindestens ein Feld mit der jeweiligen Übersetzung, eine eindeutige ID für den Text, sowie ein Feld, mit dem ein Eintrag der gerade beschriebenen Sprachentabelle festgelegt wird. Dabei gibt es einen zusammengesetzten eindeutigen Schlüssel über die beiden Felder BegriffID<\/b> und SpracheID<\/b>, damit kein Begriff zweimal in derselben Sprache vorkommt.<\/p>\n
Schließlich müssen Sie noch dafür sorgen, dass Steuerelemente, Formulare, Berichte und die anderen Elemente mit den dort gespeicherten Begriffen ausgestattet werden. Dazu brauchen Sie für die unterschiedlichen Ziele verschiedene Tabellen. Die erste kümmert sich um die Formulare, Berichte und Steuerelemente. Sie enthält zwei Felder für die Angabe des Formular- beziehungsweise Berichtsnamens und für den Namen des jeweiligen Steuerelements.<\/p>\n
Will man die Formular- oder Berichtstitel festlegen, gibt man dort einfach nur den Objektnamen an und lässt das Steuerelement weg. Ein weiteres Feld enthält die Nummer des Texts, der dort unter Berücksichtigung der gewählten Sprache eingebaut werden soll. Schauen wir uns nun an, wie dieses Datenmodell funktioniert; die Tabellen für die übrigen Objekte folgen später in Zusammenhang mit den jeweiligen Techniken.<\/p>\n
Das Datenmodell sieht nun zunächst wie in Bild 1 aus.<\/p>\n
![\"pic001.tif\"](\"..\/fileadmin\/_temp_\/2008_02\/Mehrsprachigkeit-web-images\/pic001_opt.jpeg\")
<\/p>\n
Bild 1: Datenmodell für die Ausstattung von Formularen und Berichten mit mehrsprachigen Texten<\/span><\/b><\/p>\n Formulare, Berichte und Steuerelemente<\/b><\/p>\n Alle Beschriftungen von Formularen, Berichten und den enthaltenen Steuerelementen sollen für die entsprechende Sprache angepasst werden. Aber reicht das aus Nein, es gibt noch eine Reihe weiterer Informationen, die in die jeweilige Sprache übersetzt werden müssen:<\/p>\n Von Deutsch nach …<\/b><\/p>\n Die geplante Vorgehensweise sieht so aus:<\/p>\n Einlesen bestehender Texte<\/b><\/p>\n Wenn die Anwendung fertiggestellt ist, rufen Sie einfach die Routine TexteEinlesen <\/b>auf (s. Listing 1) und geben als Parameter die Sprache der Texte an, mit der Formulare, Berichte und Steuerelemente aktuell ausgestattet sind – zum Beispiel 1 <\/b>für Deutsch<\/b> (den entsprechenden Wert entnehmen Sie der Tabelle tblSprachen<\/b>).<\/p>\n Listing 1: Startroutine zum Einlesen der in Formularen und Berichten bestehenden Texte<\/p>\n <\/p>\n Die Routine löscht zunächst alle in den Tabellen tblElemente <\/b>und tblUebersetzungen <\/b>enthaltenen Daten. Anschließend durchläuft sie erst alle Formulare der Datenbank und dann alle Berichte. Für all diese Objekte ruft die Prozedur die Routine ObjektEinlesen <\/b>auf.<\/p>\n Diese wiederum finden Sie in Listing 2. Die Routine erwartet den Namen des Objekts, die ID der Standardsprache der Anwendung sowie den Typ des Objekts als Parameter.<\/p>\n Listing 2: Diese Routine durchläuft alle relevanten Eigenschaften von Formularen, Berichten und deren Steuerelementen und ruft für jedes die Routine UebersetzungSchreiben auf, die alle notwendigen Daten in die Übersctzungstabellen schreibt.<\/p>\n Je nachdem, ob der Parameter strTyp <\/b>den Wert Formular <\/b>oder Bericht <\/b>enthält, öffnet einer der beiden Zweige der ersten If…Then<\/b>-Bedingung das entsprechende Objekt in der Entwurfsansicht.<\/p>\n Danach ruft die Routine zunächst eine weitere Prozedur namens UebersetzungSchreiben <\/b>auf, die für das Eintragen der Übersetzungen verantwortlich ist. Anschließend durchläuft die Routine alle Steuerelemente des Formulars beziehungsweise Berichts und ruft für jedes Element viermal die Prozedur UebersetzungSchreiben <\/b>auf: je einmal für die vier Eigenschaften Caption<\/b>, ControlTipText<\/b>, StatusbarText <\/b>und ValidationText<\/b>. Dies sind die vier Eigenschaften herkömmlicher Steuerelemente, die für den Benutzer sichtbare Texte enthalten können (die Daten, die durch die Steuerelemente angezeigt werden, einmal außen vor gelassen).<\/p>\n Danach schließt die Routine das geöffnete Objekt wieder. Die Hauptarbeit übernimmt die Prozedur UebersetzungSchreiben<\/b> (s. Listing 3) Sie erwartet vier Parameter:<\/p>\n Listing 3: Diese Routine erledigt die eigentliche Arbeit, denn sie schreibt nicht nur die Texte, sondern auch noch Platzhalter für die Übersetzungen in die Übersetzungstabellen.<\/p>\n Die Routine öffnet zunächst eine Datensatzgruppe auf Basis der Tabelle tblSprachen<\/b>. Diese durchläuft sie komplett, denn es soll ja für jede Kombination aus Sprache und Steuerelement beziehungsweise Steuerelementeigenschaft ein Datensatz in der Tabelle tblUebersetzungen <\/b>angelegt werden. Bis dahin sind allerdings noch einige Vorarbeiten zu erledigen: Die erste If…Then<\/b>-Bedingung prüft, ob das aktuelle Objekt ein Steuerelement oder ein Formular\/Bericht ist. Wenn der Übergabeparameter ctl <\/b>nicht leer ist, handelt es sich um ein Steuerelement, sonst um das Formular oder den Bericht selbst. Im Falle eines Steuerelements weist die Routine der Variablen strControl <\/b>den Steuerelementnamen und strBegriff <\/b>den Wert der mit strEigenschaft <\/b>übergebenen Eigenschaft zu (wie weiter oben erwähnt: eine der Eigenschaften Caption<\/b>, ControlTipText<\/b>, StatusbarText <\/b>oder ValidationText<\/b>). Die Variable lngSteuerelementtyp <\/b>wird mit dem Wert der Eigenschaft ControlType <\/b>des Steuerelements gefüllt.<\/p>\n Falls ctl <\/b>leer ist, soll die Caption eines Formulars oder Steuerelements verarbeitet werden: Dann wird strBegriff <\/b>mit dem Wert der per strEigenschaft <\/b>übergebenen Eigenschaft gefüllt, was immer die Caption <\/b>betrifft.<\/p>\n Im nächsten Schritt prüft die Routine, ob strBegriff <\/b>einen Wert enthält. Das bedeutet im Detail, dass die übergebene Eigenschaft des übergebenen Steuerelements einen Text enthält, der dementsprechend auch übersetzt werden sollte.<\/p>\n In diesem Fall vergleicht die Routine die mit dem Parameter lngSpracheID<\/b> übergebene Sprach-ID mit der des aktuell durchlaufenen Datensatzes der Tabelle tblSprachen<\/b>.<\/p>\n Wird gerade die mit lngSprachID <\/b>übergebene Sprache durchlaufen, handelt es sich um die Sprache, in der die Formulare, Berichte und Steuerelemente aktuell beschriftet sind. Die Beschriftungen werden dann genau so, wie sie sind, in die Tabelle tblUebersetzungen <\/b>geschrieben!<\/p>\n Falls nicht, handelt es sich um eine der Sprachen, in welche die Texte noch übersetzt werden müssen. Für diese Begriffe werden Dummies in die Tabelle tblUebersetzungen <\/b>geschrieben, die aus dem Sprachkürzel (beispielsweise EN <\/b>für englisch) gefolgt von einem weiteren Unterstrich und schließlich dem Text in der Originalsprache bestehen. Der Text Vorname:<\/b> würde also beispielsweise als EN_Vorname: <\/b>gespeichert. Somit könnte der Übersetzer die Übersetzung allein anhand dieser Ausdrücke vornehmen.<\/p>\n Falls der Begriff keinen Wert enthält, handelt es sich um ein Steuerelement, das keinen Text für die aktuelle Eigenschaft aufweist. Das heißt, dass beispielsweise die Eigenschaft StatusBarText <\/b>leer sein könnte. In dem Fall soll die Routine ebenfalls einen speziellen Eintrag in der Tabelle tblUebersetzungen <\/b>vornehmen: Und zwar einen Unterstrich gefolgt vom Sprachkürzel gefolgt von einem weiteren Unterstrich und dem Namen des Steuerelements und der Eigenschaft, also zum Beispiel _DE_Einzelpreis_ControlTipText <\/b>bei einem Steuerelement namens Einzelpreis <\/b>und der Eigenschaft ControlTipText<\/b>.<\/p>\n Schließlich folgen zwei INSERT INTO<\/b>-Anweisungen, die je einen Eintrag in die Tabelle tblUebersetzungen <\/b>und in die Tabelle tblElemente <\/b>vornehmen. Das Ergebnis zeigen Abb. 2 und Abb. 3. Der erste Eintrag der Tabelle tblElemente <\/b>enthält beispielsweise einen Wert für Objekt, aber keinen für Steuerelement, was darauf hinweist, dass es sich hierbei um die Caption eines Formulars oder Berichts handelt. Und richtig: Die Eigenschaft <\/b>heißt Caption<\/b> und die BegriffID 12<\/b>.<\/p>\n Bild 2: Die Tabelle tblElemente mit der Definition der Formulare, Berichte und Steuerelemente, zu denen es Übersetzungen der verschiedenen Eigenschaftswerte gibt.<\/span><\/b><\/p>\n Schauen Sie auf die Tabelle tblUebersetzungen <\/b>in Bild 3, erkennen Sie schnell die zu dieser BegriffID <\/b>passenden Einträge, die jeweils für die SpracheID <\/b>Englisch, Deutsch und Französisch vorliegen.<\/p>\n Bild 3: Die Tabelle tblUebersetzungen enthält die Texte für die Eigenschaftswerte aus der Tabelle tblElemente in den verschiedenen Sprachen.<\/span><\/b><\/p>\n Damit wäre ein wichtiger Teil erledigt – das Sammeln der Ausdrücke, die im Anschluss übersetzt werden sollen.<\/p>\n Bearbeiten der Texte<\/b><\/p>\n Das Bearbeiten der Texte ist, wenn man bedenkt, dass das Einlesen in wenigen Sekunden erledigt ist, sicher der bei weitem größte Aufwand beim Hinzufügen der Mehrsprachigkeit zu einer Anwendung.<\/p>\n Daher sollten Sie dem Übersetzer ein einigermaßen handliches Tool zur Erledigung dieser Aufgabe bereitstellen. In diesem Fall handelt es sich um ein Formular, das im Wesentlichen zwei Unterformulare enthält – eines zur Anzeige der Begriffe in der Ausgangssprache und eines für die Zielsprache. Bild 4 zeigt, wie dieses Formular aussieht.<\/p>\n Bild 4: Dieses Formular hilft beim Übersetzen der Texte.<\/span><\/b><\/p>\n Die Programmierung des Formulars ist relativ aufwändig und wird ausführlich im Beitrag Unterformulare im Gleichschritt <\/b>(Shortlink 606) erläutert.<\/p>\n Der Grund dafür ist, dass die beiden Unterformulare synchron scrollen sollen, damit Ausgangs- und Zieltext jeweils immer genau nebeneinander angezeigt werden.<\/p>\n Um das Beispielformular aus dem oben erwähnten Beitrag im hier verwendeten Formular einzusetzen, sind nur wenige Schritte notwendig: Sie müssen lediglich die Objekte frm<\/b>, sfm <\/b>und mdlScrollbar <\/b>in die Zieldatenbank importieren und diese anpassen.<\/p>\n Als Erstes weisen Sie der Datenherkunft des Unterformulars sfm <\/b>die Tabelle tblUebersetzungen <\/b>zu. Entfernen Sie alle Steuerelemente aus dem Entwurf und fügen Sie lediglich den Eintrag Begriff <\/b>aus der Feldliste zum Detailbereich hinzu.<\/p>\n ändern Sie auch die Formularnamen in frmUebersetzungen <\/b>und sfmUebersetzungen<\/b>. Mehr ist im Unterformular nicht zu tun, lediglich dem Hauptformular müssen Sie noch zwei Kombinationsfelder spendieren, damit der Benutzer die jeweilige Sprache auswählen kann. Die Kombinationsfelder heißen cboOriginal <\/b>und cboUebersetzung<\/b>. Sie haben beide die Datensatzherkunft tblSprachen<\/b>.<\/p>\n Damit das Formular beim Öffnen brauchbare Daten anzeigt, sorgt die folgende Routine für das Füllen der Kombinationsfelder und das Filtern der Unterformulare:<\/p>\n Das Auswählen einer anderen Sprache aus einem der Kombinationsfelder aktualisiert ebenfalls die Datenherkunft des jeweiligen Unterformulars, hier für die Ausgangssprache:<\/p>\n In diesem Formular braucht die mit der Übersetzung betraute Person einfach nur alle Elemente zu übersetzen, die nicht mit einem Unterstrich beginnen.<\/p>\n Wie werden die Beschriftungen angepasst<\/b><\/p>\n Fehlt noch das Anwenden der alternativen Sprachen auf die Formulare und Berichte. Die bisherige Arbeit war keinesfalls umsonst: Sie haben optimale Voraussetzungen geschaffen, um Ihre Formulare und Berichte durch einen einfachen Funktionsaufruf in die gewünschte Sprache zu transportieren. Die Funktion heißt SpracheEinstellen <\/b>und erwartet zwei Parameter – einen Verweis auf das Objekt sowie die ID der gewünschten Sprache (s. Listing 4).<\/p>\n Listing 4: Das Einstellen der Texte einer bestimmten Sprache geschieht in dieser Routine.<\/p>\n Die Routine öffnet zunächst eine Datensatzgruppe, welche die Tabellen tblElemente <\/b>und tblUebersetzungen <\/b>enthält und die drei Felder Steuerelement<\/b>, Eigenschaft <\/b>und Begriff <\/b>zu den Datensätzen ausgibt, die dem Objekt und der übergebenen SpracheID <\/b>entsprechen. Diese Datensätze durchläuft die Routine im Anschluss und weist den verschiedenen Eigenschaften von Formularen und Berichten sowie deren Steuerelementen die angegebenen Texte zu.<\/p>\n\n
\n
Public Sub TexteEinlesen(lngSpracheID As Long)\r\nDim i As Integer\r\nDim db As DAO.Database\r\nDim strObjekt As String\r\nSet db = CurrentDb\r\ndb.Execute "DELETE FROM tblElemente"\r\ndb.Execute "DELETE FROM tblUebersetzungen"\r\nFor i = 0 To CurrentProject.AllForms.Count - 1\r\n strObjekt = CurrentProject.AllForms(i).Name\r\n ObjektEinlesen strObjekt, lngSpracheID, "Formular"\r\nNext i\r\nFor i = 0 To CurrentProject.AllReports.Count - 1\r\n strObjekt = CurrentProject.AllReports(i).Name\r\n ObjektEinlesen strObjekt, lngSpracheID, "Bericht"\r\nNext i\r\nEnd Sub<\/pre>\n
Public Sub ObjektEinlesen(strObjekt As String, lngSpracheID As Long, strTyp As String)\r\nDim i As Integer\r\nDim strEigenschaft As String\r\nDim obj As Object\r\nDim ctl As Access.Control\r\nIf strTyp = "Formular" Then\r\n DoCmd.OpenForm strObjekt, acPreview\r\n Set obj = Forms(strObjekt)\r\nElse\r\n DoCmd.OpenReport strObjekt, acPreview\r\n Set obj = Reports(strObjekt)\r\nEnd If\r\nUebersetzungSchreiben lngSpracheID, obj, ctl, "Caption"\r\nFor Each ctl In obj.Controls\r\n For i = 1 To 4\r\n strEigenschaft = Choose(i, "Caption", "ControlTipText", "StatusbarText", _\r\n "ValidationText")\r\n UebersetzungSchreiben lngSpracheID, obj, ctl, strEigenschaft\r\n Next i\r\nNext ctl\r\nDoCmd.Close acForm, strObjekt\r\nEnd Sub<\/pre>\n
Public Sub UebersetzungSchreiben(lngSpracheID As Long, frm As Object, Optional ctl As Control, _\r\nOptional strEigenschaft As String)\r\nDim db As DAO.Database\r\nDim rst As DAO.Recordset\r\nDim strControl As String\r\nDim strBegriff As String\r\nDim lngBegriffID As Long\r\nDim lngSteuerelementtyp As Long\r\nSet db = CurrentDb\r\nSet rst = db.OpenRecordset("tblSprachen", dbOpenDynaset)\r\nlngBegriffID = Nz(DMax("BegriffID", "tblUebersetzungen"), 0) + 1\r\nDo While Not rst.EOF\r\n On Error Resume Next\r\n If Not ctl Is Nothing Then\r\n strBegriff = ctl.Properties(strEigenschaft)\r\n strControl = ctl.Name\r\n lngSteuerelementtyp = ctl.ControlType\r\n Else\r\n strBegriff = frm.Properties(strEigenschaft)\r\n strControl = ""\r\n End If\r\n If Err.Number > 0 Then Exit Sub\r\n On Error GoTo 0\r\n If Len(strBegriff) > 0 Then\r\n If rst!SpracheID = lngSpracheID Then\r\n strBegriff = strBegriff\r\n Else\r\n strBegriff = rst!Kuerzel & "_" & strBegriff\r\n End If\r\n Else\r\n strBegriff = "_" & rst!Kuerzel & "_" & strControl & "_" & strEigenschaft\r\n End If\r\n db.Execute "INSERT INTO tblUebersetzungen(BegriffID, SpracheID, Begriff) " _\r\n & "VALUES(" & lngBegriffID & ", " & rst!SpracheID & ", '" & strBegriff & "')", _\r\n dbFailOnError\r\n On Error Resume Next\r\n db.Execute "INSERT INTO tblElemente(Objekt, Steuerelement, Steuerelementtyp, " _\r\n & "BegriffID, Eigenschaft) VALUES('" & frm.Name & "', '" & strControl & "', '" _\r\n & lngSteuerelementtyp & "', " & lngBegriffID & ", '" & strEigenschaft & "')", _\r\n dbFailOnError\r\n On Error GoTo 0\r\n rst.MoveNext\r\nLoop\r\nEnd Sub<\/pre>\n\n
![\"pic003.tif\"](\"..\/fileadmin\/_temp_\/2008_02\/Mehrsprachigkeit-web-images\/pic003_opt.jpeg\")
<\/p>\n![\"pic004.tif\"](\"..\/fileadmin\/_temp_\/2008_02\/Mehrsprachigkeit-web-images\/pic004_opt.jpeg\")
<\/p>\n![\"pic002.tif\"](\"..\/fileadmin\/_temp_\/2008_02\/Mehrsprachigkeit-web-images\/pic002_opt.jpeg\")
<\/p>\nPrivate Sub Form_Current()\r\n Me!cboOriginal = Me!cboOriginal.ItemData(0)\r\n Me!cboUebersetzung = _\r\n Me!cboUebersetzung.ItemData(1)\r\n Me!sfm1.Form.RecordSource = "SELECT * " _\r\n & "FROM tblUebersetzungen " _\r\n & "WHERE SpracheID = " & Me!cboOriginal\r\n Me!sfm2.Form.RecordSource = "SELECT * " _\r\n & "FROM tblUebersetzungen " _\r\n & "WHERE SpracheID = " _\r\n & Me!cboUebersetzung\r\n End Sub<\/pre>\n
Private Sub cboOriginal_AfterUpdate()\r\n Me!sfm1.Form.RecordSource = "SELECT * " _\r\n & "FROM tblUebersetzungen " _\r\n & "WHERE SpracheID = " & Me!cboOriginal\r\n End Sub<\/pre>\n
Public Sub SpracheEinstellen(obj As Object, lngSpracheID As Long)\r\nDim db As DAO.Database\r\nDim rst As DAO.Recordset\r\nDim strObjekt As String\r\nstrObjekt = obj.Name\r\nSet db = CurrentDb\r\nSet rst = db.OpenRecordset("SELECT Steuerelement, Eigenschaft, Begriff FROM tblElemente " _\r\n& "INNER JOIN tblUebersetzungen ON tblElemente.BegriffID = tblUebersetzungen.BegriffID " _\r\n& "WHERE Objekt = '" & strObjekt & "' AND SpracheID = " & lngSpracheID, dbOpenDynaset)\r\nDo While Not rst.EOF\r\n If Not Left(rst!Begriff, 1) = "_" Then\r\n If Len(rst!Steuerelement) = 0 Then\r\n obj.Properties(rst!Eigenschaft) = rst!Begriff\r\n Else\r\n obj.Controls(rst!Steuerelement).Properties(rst!Eigenschaft) = rst!Begriff\r\n End If\r\n End If\r\n rst.MoveNext\r\nLoop\r\nEnd Sub<\/pre>\n
![\"pic005.tif\"](\"..\/fileadmin\/_temp_\/2008_02\/Mehrsprachigkeit-web-images\/pic005_opt.jpeg\")
<\/p>\n