<\/p>\n
![\"Die](\"..\/fileadmin\/_temp_\/2021_01\/pic_1279_001.png\")
<\/p>\n
Bild 1: Die Autokorrektur in Aktion<\/span><\/b><\/p>\n Die Autokorrektur ist ein Office-weit verwendetes Tool. Sie funktioniert auch bei der Eingabe von Texten in Access-Steuerelementen. Aber kann man die Eintr\u00e4ge der Autokorrektur auch anpassen – und wo werden diese \u00fcberhaupt gespeichert Und kann man auch per VBA auf die enthaltenen Daten zugreifen und diese gegebenenfalls automatisiert erweitern All diese Fragen kl\u00e4ren wir im vorliegenden Beitrag.<\/b><\/p>\n Wem passiert es nicht einmal, dass er einen Tippfehler beim Eingeben von Daten in das Textfeld eines Access-Formulars macht Oder auch in Excel, Word und Co. Wenn das in Access passiert, weil Sie beispielsweise das Wort wechler <\/b>statt welcher <\/b>eingeben, korrigiert die Autokorrektur dies automatisch und zeigt auch an, dass sie aktiv war. Das erkennen Sie wie in Bild 1 an der aufklappbaren Schaltfl\u00e4che, welche verschiedene Optionen anbietet:<\/p>\n Bild 1: Die Autokorrektur in Aktion<\/span><\/b><\/p>\n Wenn Sie die Autokorrektur f\u00fcr ein Wort deaktivieren, erscheint vor diesem Eintrag ein Haken-Symbol (siehe Bild 2).<\/p>\n Bild 2: Die Autokorrektur wurde f\u00fcr dieses Wort deaktiviert.<\/span><\/b><\/p>\n Wenn Sie die dritte Option w\u00e4hlen, zeigt Access den Dialog aus Bild 3 an. Hier finden Sie zun\u00e4chst einige allgemeine Optionen, mit denen oft auftretende allgemeine Fehleingaben korrigiert werden k\u00f6nnen – zum Beispiel die Eingabe von zwei gro\u00dfen Zeichen am Wortanfang, weil man schneller tippt, als man die Umschalttaste wieder losgelassen hat.<\/p>\n Bild 3: Optionen der Autokorrektur<\/span><\/b><\/p>\n Darunter finden Sie eine Liste der voreingestellten durch die Autokorrektur zu ersetzenden Begriffe. Links ist der zu korrigierende Wert, rechts die Korrektur. Sie k\u00f6nnen mit diesem Dialog verschiedene Aktionen durchf\u00fchren:<\/p>\n Aber Vorsicht: Diese \u00c4nderungen wirken sich auf die Autokorrektur f\u00fcr alle Office-Anwendungen f\u00fcr den aktuellen Benutzer aus. Wenn Sie also alle Eintr\u00e4ge entfernen, wird auch Word keine Autokorrekturen mehr vornehmen.<\/p>\n Wir sind bekannt daf\u00fcr, dass wir alles, was mit VBA ferngesteuert werden kann, auch unter die Lupe nehmen.<\/p>\n Dazu schauen wir uns zun\u00e4chst die M\u00f6glichkeiten im Objektkatalog an. Geben Sie hier Autocorrect<\/b> als Suchbegriff ein, erhalten Sie alle interessanten Elemente (siehe Bild 4).<\/p>\n Bild 4: Das Autocorrect-Objekt im Objektkatalog<\/span><\/b><\/p>\n Das AutoCorrect<\/b>-Objekt enth\u00e4lt selbst nur ein Element, n\u00e4mlich DisplayAutoCorrectOptions<\/b>. Auf den ersten Blick k\u00f6nnte man meinen, das w\u00e4re eine Methode, mit der sich der Optionen-Dialog f\u00fcr die Autokorrektur-Einstellungen \u00f6ffnen l\u00e4sst. Tats\u00e4chlich handelt es sich um eine Eigenschaft. Sie nimmt die Werte True <\/b>oder False <\/b>entgegen. Stellen wir die Eigenschaft testweise durch Eingabe der folgenden Anweisung im Direktbereich des VBA-Editors auf False <\/b>ein:<\/p>\n Dies f\u00fchrt dazu, dass die Autokorrektur zwar noch ausgef\u00fchrt wird, allerdings erscheint das SmartTag mit den Optionen nicht mehr.<\/p>\n Neben dieser Eigenschaft gibt es noch die RunCommand-Konstante acCmdAutoCorrect<\/b>. Diese \u00f6ffnet wiederum den Optionen-Dialog, wenn Sie einen Aufruf wie den folgenden nutzen:<\/p>\n Schlie\u00dflich gibt es noch die Eigenschaft AllowAutoCorrect <\/b>f\u00fcr die beiden Steuerelementtypen TextBox <\/b>und ComboBox<\/b>. Damit k\u00f6nnen Sie festlegen, ob die Autokorrektur in einem bestimmten Textfeld aktiviert sein soll. F\u00fcr das aktuelle Steuerelement deaktivieren wie die Autokorrektur beispielsweise wie folgt im Direktbereich des VBA-Editors:<\/p>\n Danach arbeitet die Autokorrektur einfach nicht mehr.<\/p>\n Wir vermissen bisher noch eine M\u00f6glichkeit, per VBA Eintr\u00e4ge zur Liste der Autokorrekturen hinzuzuf\u00fcgen. Auf herk\u00f6mmlichem Wege k\u00f6nnen wir auch lange suchen, denn die beiden dazu ben\u00f6tigten Methoden sind als verborgen gekennzeichnet. Um diese sichtbar zu machen, klicken wir im Objektkatalog mit der rechten Maustaste in den Bereich Suchergebnisse<\/b>. Im nun erscheinenden Kontextmen\u00fc w\u00e4hlen wir den Eintrag Verborgene Elemente anzeigen <\/b>aus (siehe Bild 5).<\/p>\n Bild 5: Einblenden verborgener Eintr\u00e4ge<\/span><\/b><\/p>\n Daraufhin erscheinen in den Suchergebnissen zwei neue Eintr\u00e4ge:<\/p>\n Die beiden Befehle tauchen nun auch unter IntelliSense auf, wenn Sie Application <\/b>gefolgt von einem Punkt im Direktbereich oder im Codefenster eingeben (siehe Bild 6).<\/p>\n <\/p>\n Bild 6: Befehl zum Hinzuf\u00fcgen eines Autokorrektur-Eintrags<\/span><\/b><\/p>\n Um einen Eintrag hinzuzuf\u00fcgen, geben Sie f\u00fcr den ersten Parameter der AddAutoCorrect<\/b>-Methode den zu ersetzenden Ausdruck und f\u00fcr den zweiten den neuen Ausdruck ein:<\/p>\n Den neuen Eintrag finden Sie dann nach dem \u00d6ffnen der Autokorrektur-Optionen in der Liste vor (siehe Bild 7).<\/p>\n Bild 7: Der neue Autokorrektur-Eintrag<\/span><\/b><\/p>\n Um diesen Eintrag wieder zu entfernen, verwenden Sie die Methode DelAutoCorrect<\/b>. Diesmal brauchen Sie nur den zu ersetzenden Ausdruck einzugeben:<\/p>\n Danach ist der Eintrag wieder aus der Liste verschwunden.<\/p>\n Nun sind zwei Befehle zum Hinzuf\u00fcgen und Entfernen allerdings ein wenig mau. Warum gibt es keinen Zugriff auf die komplette Liste, sodass man beispielsweise alle Eintr\u00e4ge in einem Formular anzeigen kann – etwa zur \u00fcbersichtlicheren Bearbeitung durch den Benutzer<\/p>\n Diesen Zugriff gibt es – allerdings nicht von der Access-Bibliothek aus. Die Application<\/b>-Objekte der \u00fcbrigen Office-Anwendungen bieten viel mehr M\u00f6glichkeiten. Da wir von Access aus Word, Excel und Co. fernsteuern k\u00f6nnen, ist es kein Problem, eine der Objektbibliotheken einer dieser Anwendungen in das aktuelle VBA-Projekt einzubinden und auf die dortigen Methoden und Eigenschaften zuzugreifen.<\/p>\n Die Bibliothek binden Sie \u00fcber den Verweise<\/b>-Dialog ein, den Sie vom VBA-Editor aus \u00fcber den Men\u00fcbefehl Extras|Verweise <\/b>\u00f6ffnen (siehe Bild 8).<\/p>\n Bild 8: Einbinden eines Verweises auf die Word-Bibliothek<\/span><\/b><\/p>\n Filtern Sie danach im Objektkatalog nach der Word<\/b>-Bibliothek, erscheinen einige weitere Eintr\u00e4ge im Vergleich zu denen, die im Application-Objekt von Access zur Verf\u00fcgung stehen (siehe Bild 9).<\/p>\n Bild 9: Methoden und Eigenschaften von AutoCorrect unter Word<\/span><\/b><\/p>\n F\u00fcr das Abrufen der Liste der Eintr\u00e4ge der Autokorrektur scheint die Entries<\/b>-Eigenschaft die richtige Wahl zu sein.<\/p>\n Diese nutzen wir nun wie in der Prozedur aus Listing 1. Hier erstellen wir ein neues Objekt auf Basis der Klasse Word.Application<\/b>. Danach geben wir die Anzahl der Eintr\u00e4ge der Autokorrektur mit Entries.Count <\/b>im Direktbereich aus. Anschlie\u00dfend durchlaufen wir alle Eintr\u00e4ge der Entries<\/b>-Auflistung in einer For Each<\/b>-Schleife, wobei wir das jeweils aktuelle Element mit der Variablen objAutoCorrectEntry <\/b>referenzieren. Dieses bietet mit den beiden Eigenschaften Name <\/b>und Value <\/b>den zu ersetzenden und den neuen Ausdruck an.<\/p>\n Listing 1: Ausgeben aller Eintr\u00e4ge der Autokorrektur<\/span><\/b><\/p>\n Wir wollen die Eintr\u00e4ge nun in einer Tabelle speichern, die wir wie in Bild 10 entwerfen und unter dem Namen tblAutokorrektur <\/b>speichern. Die Tabelle enth\u00e4lt neben dem Prim\u00e4rschl\u00fcsselfeld jeweils ein Feld f\u00fcr die alte und die neue Zeichenfolge. Das Feld Alt <\/b>haben wir mit einem eindeutigen Index versehen, damit jeder Eintrag nur einmal angelegt werden kann.<\/p>\n Bild 10: Tabelle zum Speichern von Autokorrektur-Eintr\u00e4gen<\/span><\/b><\/p>\n Die Prozedur aus Listing 2 durchl\u00e4uft wie die vorherige Prozedur alle Eintr\u00e4ge der Autokorrektur-Liste und legt in jedem Durchlauf einen neuen Eintrag in der Tabelle tblAutokorrektur <\/b>an. Das Ergebnis sieht dann anschlie\u00dfend wie in Bild 11 aus.<\/p>\n Bild 11: Tabelle mit Autokorrektur-Eintr\u00e4gen<\/span><\/b><\/p>\n Listing 2: Speichern der Autokorrektur-Eintr\u00e4ge in der Tabelle tblAutokorrektur<\/span><\/b><\/p>\n Nun ben\u00f6tigen wir noch eine Prozedur, mit der wir die gegebenenfalls ge\u00e4nderten Eintr\u00e4ge zur\u00fcck in die Autokorrektur-Liste von Office schreiben k\u00f6nnen. Dabei sollten wir die vorhandenen Eintr\u00e4ge zuvor nat\u00fcrlich l\u00f6schen, damit nicht mehr vorhandene Eintr\u00e4ge verschwinden.<\/p>\n All das erledigen wir mit der Prozedur aus Listing 3. Diese erstellt ein Recordset auf Basis der Tabelle tblAutokorrektur<\/b>, und zwar sortiert nach dem Wert des Feldes Alt<\/b>. Danach durchl\u00e4uft sie zun\u00e4chst solange eine Do While<\/b>-Schleife, bis die Anzahl der Elemente der Entries<\/b>-Auflistung gleich 0 <\/b>ist. In der Schleife wird jeweils das erste Element mit der Delete<\/b>-Methode des ersten Item<\/b>-Elements gel\u00f6scht.<\/p>\n Listing 3: Zur\u00fcckschreiben der Autokorrektur-Eintr\u00e4ge aus der Tabelle in die Autokorrektur<\/span><\/b><\/p>\n Danach durchl\u00e4uft die Prozedur in einer weiteren Do While<\/b>-Schleife alle Datens\u00e4tze des Recordsets mit den Eintr\u00e4gen der Tabelle tblAutokorrektur<\/b>. Darin f\u00fcgt sie jeweils mit der Add<\/b>-Methode ein neues Element zur Entries-Auflistung hinzu, wobei die Werte der Felder Alt <\/b>und Neu <\/b>als Parameter \u00fcbergeben werden. Auf diese Weise werden alle Eintr\u00e4ge der Tabelle tblAutokorrektur <\/b>in die Entries<\/b>-Auflistung geschrieben.<\/p>\n Auch wenn wir die Eintr\u00e4ge nun in einer eigenen Tabelle gespeichert haben: Wo werden diese Daten denn nun eigentlich sonst gespeichert Bei der Suche sto\u00dfen wir schnell auf das Verzeichnis C:UsersUserAppDataRoamingMicrosoftOffice<\/b>, wo wir mehrere Dateien mit der Dateiendung .acl <\/b>finden. Wenn wir die Autokorrektur-Eintr\u00e4ge \u00e4ndern, erkennen wir am \u00c4nderungsdatum der dortigen Dateien auch schnell, dass wir die richtige Datei erwischt haben.<\/p>\n Allerdings gibt es hier gleich mehrere .acl<\/b>-Dateien, die zum Beispiel MSO1031.acl <\/b>oder MSO1033.acl<\/b> hei\u00dfen. Dabei handelt es sich um die Dateien mit den Autokorrektur-Eintr\u00e4gen f\u00fcr die unterschiedlichen Sprachen. Die Datei MSO1031.acl <\/b>enth\u00e4lt die deutschen Eintr\u00e4ge.<\/p>\n Wenn Sie \u00c4nderungen an den Autokorrektur-Eintr\u00e4gen vorgenommen haben und diese auf einen anderen Rechner \u00fcbertragen wollen, brauchen Sie nur die jeweilige .acl<\/b>-Datei in das entsprechende Verzeichnis des Zielrechners zu kopieren. Danach stehen die Autokorrektur-Eintr\u00e4ge auch dort zur Verf\u00fcgung.<\/p>\n Alternativ k\u00f6nnen Sie nat\u00fcrlich auch die Autokorrektur-Eintr\u00e4ge der aktuell aktivierten Sprache mit den oben beschriebenen VBA-Prozeduren einlesen, die Datenbank auf den Zielrechner kopieren und dort die Autokorrektur-Eintr\u00e4ge aus der Datenbanktabelle in die .acl<\/b>-Datei schreiben.<\/p>\n Normalerweise nutzt man die Autokorrektur f\u00fcr die Zwecke, f\u00fcr die sie auch vorgesehen ist. Aber warum nicht mal \u00fcber den Tellerrand schauen Sie k\u00f6nnen die Autokorrektur ja beispielsweise auch f\u00fcr das Eingeben von Abk\u00fcrzungen nutzen, die durch l\u00e4ngere Ausdr\u00fccke oder gar S\u00e4tze ersetzt werden. Warum nicht einfach f\u00fcr das Feld Ersetzen:<\/b> den Wert mfg <\/b>eingeben und f\u00fcr das Feld Durch: <\/b>den Wert Mit freundlichen Gr\u00fc\u00dfen<\/b> Dann brauchen Sie beispielsweise beim Schreiben einer E-Mail nur noch mfg <\/b>einzugeben und erhalten stattdessen automatisch den Text Mit freundlichen Gr\u00fc\u00dfen<\/b>.<\/p>\n Toll w\u00e4re es dann nat\u00fcrlich noch, wenn man die Abk\u00fcrzungen separat von den \u00fcblichen Autokorrektur-Eintr\u00e4gen verwalten k\u00f6nnte – die Grundlage haben wir mit den obigen Prozeduren und der Tabelle tblAutokorrektur <\/b>schon gelegt.<\/p>\n Wenn Sie sich die Methoden der Auflistung AutoCorrect-Entries <\/b>ansehen, finden Sie dort auch noch eine Methode namens AddRichText<\/b>. Au\u00dferdem finden wir f\u00fcr das Objekt AutoCorrectEntry <\/b>eine Boolean<\/b>-Eigenschaft namens RichText<\/b>. Durchlaufen wir die Autokorrektur-Eintr\u00e4ge nochmal gezielt und untersuchen dabei die Eigenschaft RichText<\/b>, finden wir dort einige Eintr\u00e4ge mit dem Wert True <\/b>f\u00fcr diese Eigenschaft. Der zu ersetzende Wert lautet beispielsweise \ud83d\ude42<\/b>, als neuen Wert finden wir dort jedoch nur den Ausdruck ** <\/b>vor. Der Versuch, diese Autokorrektur in einem Access-Textfeld auszuprobieren, brachte kein Ergebnis. Auch in einem als Rich-Text formatierten Textfeld wurde \ud83d\ude42 <\/b>nicht ersetzt. Das gelang nur beispielsweise in Word, wo \ud83d\ude42 <\/b>durch ein Smiley-Icon ersetzt wurde. F\u00fcr den Einsatz in Access-Anwendungen brauchen wir das Thema Rich-Text also nicht weiter zu verfolgen.<\/p>\n mehrere Abs\u00e4tze mit Zeilenumbr\u00fcchen verwenden.<\/p>\n<\/p>\n Enthaltene Beispieldateien:<\/p>\n Autokorrekt.accdb<\/p>\n<\/p>\n\n
![\"Die](\"..\/fileadmin\/_temp_\/2021_01\/pic_1279_002.png\")
<\/p>\nAutokorrektur-Optionen \u00e4ndern<\/h2>\n
![\"Optionen](\"..\/fileadmin\/_temp_\/2021_01\/pic_1279_003.png\")
<\/p>\n\n
Autokorrektur per VBA anpassen<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2021_01\/pic_1279_004.png\")
<\/p>\nAutoCorrect.DisplayAutoCorrectOptions = False<\/span><\/pre>\nRunCommand acCmdAutoCorrect<\/pre>\n
Screen.ActiveControl.AllowAutoCorrect = False<\/span><\/pre>\nAutokorrekturen per VBA hinzuf\u00fcgen und l\u00f6schen<\/h2>\n
![\"Einblenden](\"..\/fileadmin\/_temp_\/2021_01\/pic_1279_005.png\")
<\/p>\n\n
![\"Befehl](\"..\/fileadmin\/_temp_\/2021_01\/pic_1279_006.png\")
<\/p>\nApplication.AddAutoCorrect \"da\u00df\", \"dass\"<\/pre>\n
![\"Der](\"..\/fileadmin\/_temp_\/2021_01\/pic_1279_007.png\")
<\/p>\nApplication.DelAutoCorrect \"da\u00df\"<\/pre>\n
Liste der Eintr\u00e4ge abrufen<\/h2>\n
![\"Einbinden](\"..\/fileadmin\/_temp_\/2021_01\/pic_1279_008.png\")
<\/p>\n![\"Methoden](\"..\/fileadmin\/_temp_\/2021_01\/pic_1279_009.png\")
<\/p>\nPublic Sub <\/span>AutokorrekturEintraege()\n Dim <\/span>objWord As <\/span>Word.Application\n Dim <\/span>objAutoCorrectEntry As <\/span>AutoCorrectEntry\n Set<\/span> objWord = New<\/span> Word.Application\n Debug.Print<\/span> objWord.AutoCorrect.Entries.Count\n For Each objAutoCorrectEntry In objWord.AutoCorrect.Entries\n Debug.Print<\/span> objAutoCorrectEntry.Name, objAutoCorrectEntry.Value\n Next<\/span> objAutoCorrectEntry\n objWord.Quit\n Set<\/span> objWord = Nothing\nEnd Sub<\/span><\/pre>\nAutokorrektur-Eintr\u00e4ge in Tabelle speichern<\/h2>\n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2021_01\/pic_1279_010.png\")
<\/p>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2021_01\/pic_1279_011.png\")
<\/p>\nPublic Sub <\/span>AutokorrekturEintraegeInDB()\n Dim <\/span>db As <\/span>DAO.Database\n Dim <\/span>objWord As <\/span>Word.Application\n Dim <\/span>objAutoCorrectEntry As <\/span>AutoCorrectEntry\n Set<\/span> objWord = New<\/span> Word.Application\n Set<\/span> db = CurrentDb\n On Error Resume Next<\/span>\n For Each objAutoCorrectEntry In objWord.AutoCorrect.Entries\n db.Execute \"INSERT INTO tblAutokorrektur(Alt, Neu) VALUES('\" & objAutoCorrectEntry.Name & \"', '\" _\n & objAutoCorrectEntry.Value & \"')\", dbFailOnError\n Next<\/span> objAutoCorrectEntry\n On Error GoTo<\/span> 0\n objWord.Quit\n Set<\/span> objWord = Nothing\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>AutokorrekturEintraegeAusDB()\n Dim <\/span>db As <\/span>DAO.Database\n Dim <\/span>rst As <\/span>DAO.Recordset\n Dim <\/span>objWord As <\/span>Word.Application\n Dim <\/span>objAutoCorrectEntry As <\/span>AutoCorrectEntry\n Set<\/span> objWord = New<\/span> Word.Application\n Set<\/span> db = CurrentDb\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblAutokorrektur ORDER BY Alt\", dbOpenDynaset)\n Do While<\/span> Not<\/span> objWord.AutoCorrect.Entries.Count = 0\n objWord.AutoCorrect.Entries.Item(1).Delete\n Loop<\/span>\n Do While<\/span> Not<\/span> rst.EOF\n objWord.AutoCorrect.Entries.Add rst!Alt, rst!Neu\n rst.MoveNext<\/span>\n Loop<\/span>\n objWord.Quit\n Set<\/span> objWord = Nothing\nEnd Sub<\/span><\/pre>\nWo werden die Autokorrektur-Eintr\u00e4ge gespeichert<\/h2>\n
Autokorrektur-Eintr\u00e4ge in mehreren Sprachen<\/h2>\n
Autokorrektur-Eintr\u00e4ge weitergeben oder auf neuen Rechner \u00fcbernehmen<\/h2>\n
Autokorrektur f\u00fcr andere Zwecke<\/h2>\n
Weitere Autokorrektur-Features<\/h2>\n
Downloads zu diesem Beitrag<\/h2>\n