ich möchte gern die komplette Autokorrekturliste, aber Wort für Wort ist das etwas mühselig.
Kann mir jemand einen entspr. VBA-Code schreiben?
Allerbesten Dank.
Gruß
Karsten
Sub ACL_Loeschen()
'ACHTUNG : Makro löscht die KOMPLETTE Autokorrekturliste !
'diese ist nicht wieder rekonstruierbar !
'03.12.2011, NoNet - www.excelei.de
Dim lngZ As Long
If MsgBox("Soll jetzt die KOMPLETTE Autokorrekturliste auf diesem PC gelöscht werden ?", _
vbQuestion + vbYesNo, "ACL dauerhaft löschen") = vbYes Then
For lngZ = UBound(Application.AutoCorrect.ReplacementList) To 1 Step -1
'Kommentar vor folgender Zeile entfernen, wenn TATSÄCHLICH gelöscht werden soll !
'Application.AutoCorrect.DeleteReplacement _
Application.AutoCorrect.ReplacementList()(lngZ, 1))
Next
End If
End Sub
Beachte bitte, dass die gelöschten Einträge nicht wieder automatisch hergestellt werden können !!