Can one save Autocorrect settings?

  • Thread starter Thread starter ex4ed
  • Start date Start date
E

ex4ed

I have had the need to reformat my hard disk several times, and
reinstall Office.

Every time I do that I loose my Autocorrect settings!

Is there a way to save - say to a floppy - my settings so I don't have
to try to remember what terms I used before?
 
Dana DeLouis wrote a couple of macros to transfer AutoCorrect entries.

The first one dumps them onto a worksheet. You can check them there.
Copy the workbook to the other machine, and run the second macro to add
the entries to the AutoCorrect file on that machine. It doesn't remove
any existing entries, but adds any new ones.

'************************
Sub AutoCorrectEntries_Display()
'by Dana DeLouis
'dumps all AutoCorrect entries onto worksheet
Dim ACE
Dim r As Long

ACE = Application.AutoCorrect.ReplacementList

For r = 1 To UBound(ACE)
Cells(r, 1) = ACE(r, 1)
Cells(r, 2) = ACE(r, 2)
Next

Columns("A:B").AutoFit
End Sub
' = = = = = = =

Sub AutoCorrectEntries_Add()
'by Dana DeLouis
'adds all AutoCorrect entries from worksheet
Dim Cell As Range
With Application.AutoCorrect
For Each Cell In Columns(1).SpecialCells(xlConstants, xlTextValues)
.AddReplacement Cell, Cell.Offset(0, 1)
Next
End With
End Sub
' = = = = = = =
'*********************************
 
Create a Workbook and save with two Macros, One to download the list, the
other to update the list

The following sub will download your list to a worksheet.

Note: Sheet1 Cell A1 is named Start
On my slow computer, it took a couple of minutes to run, (Excel97). So
there is some room for tweeking to make run faster.


Public Sub DisplayAutoCorrectList()
repl = Application.AutoCorrect.ReplacementList
For x = 1 To UBound(repl)
Range("Start").Offset(x, 0) = repl(x, 1)
Range("Start").Offset(x, 1) = repl(x, 2)
Next x
End Sub

To restore the list, try playing around with
UNTESTED
repl = Application.AutoCorrect.ReplacementList
For x = 1 To
repl(x, 1) = range("start").offset(x,0)
repl(x, 2) = range("start").offset(x,1)
Next
 
Do a search for *.ACL files. Copy them and overwrite the ones that the
re-install of Office produces.

Gord Dibben XL2002
 
Back
Top