Komplette Autokorrekturliste per VBA löschen
03.12.2011 18:25:12
NoNet
Hallo Karsten,
hier das gewünschte Makro - Verwendung auf eigene Gefahr !
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 !!
Salut, NoNet