Autoreplace.ReplicationList in Windows NT

  • Thread starter Thread starter Krisa
  • Start date Start date
K

Krisa

Hi,

I used Dana DeLouis' excellent code for transferring the Autoreplace values
from one PC to another (code below). It works great on my XP machines, but
when I tried it on a client's NT machines, I got run time error 1004:
Unable to get ReplacementList property of Autoreplace. I know next to
nothing about NT. Any ideas, please?

TIA,
Krisa



Public Sub AutoCorrectEntries_Display()
'// Dana DeLouis
'// Backup AutoCorrect to Worksheet
Dim ACE
ACE = Application.AutoCorrect.ReplacementList
ActiveWorkbook.Sheets("AutoCorrect").Select
Range(Cells(1), Cells(UBound(ACE), 2)) = ACE
Columns("A:B").AutoFit
End Sub

Public Sub AutoCorrectEntries_Add()
'// Dana DeLouis
'// Add AutoCorrect entries.
'// Column A -> Wrong Word
'// Column B -> Correct Word
Dim rng As Range
ActiveWorkbook.Sheets("AutoCorrect").Select
With Application.AutoCorrect
For Each rng In Columns(1) _
.SpecialCells(xlConstants, xlTextValues).Cells
.AddReplacement rng, rng.Offset(0, 1)
Next
End With
End Sub
 
Same version of Excel (2000). The code is attached to a form button. I
wonder if the tech guys installed all the updates/service packs for 2K on my
client's PC - they just upgraded him from 97 a few weeks ago. Other than
that and NT, everything else is the same.

Anyone out there have NT and could test that bit of code? It's frightfully
useful, when it works.

Thanks,
Krisa
 
Back
Top