Share AutoCorrect Settings

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I've got a bunch of AutoCorrect settings I'ld like to share w/co-workers.
Where are these located and how can I share them?

~Lori
 
Search for files that end with .acl, but if you copy your files to
another person's machine, it will overwrite any entries they've created.
Instead, you could make a backup copy of their file, then use these
macros, written by Dana DeLouis, to transfer your 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
' = = = = = = =
 
Debra~

In all honesty, I forwarded our stuff on to the user requesting and she
seemed very happy.

~Lori
 
Great! She probably hadn't created any entries of her own, so I'm glad
the simple solution worked for you.
 
Back
Top