Error to AutoCorrect.ReplacementList property.

when i use following code, it return wrong massage: Error 1004, can not get AutoCorrect Replacement property.

Sub test()
    Dim vList As Variant
    Dim i As Long
   
    vList = Application.AutoCorrect.ReplacementList
    For i = 1 To UBound(vList)
        Debug.Print vList(i, 1) & vbTab & vList(i, 2)
    Next
End Sub

It works fine for me in Office 2007

Do you get the error on getting the property into your variable or when iterating them to the debug window?

 Hi, Nick

Cause i use chinese version(2052), is it the problem?

As following pictures show.

i use WinXP2 + OfficeXP (2052), Office 2003(2052) also get the same error number.

Error highlight to "vList = Application.AutoCorrect.ReplacementList"

i use OfficeXP chinese version (2052) , is it the problem? the same error to Office 2003 (2052).

That would be tough to know precisely, but I suspect that is a language issue. I think these earlier versions had the language built into the code base whereas later versions have language packs that lay over a US English code base.

I would suggest you get someone with a new (XL2003/7) Chinese version to try it and see if it works.

It certainly worked here.

The only other thing to check is whether there are actually any autocorrect entries?

Hi, Nick

Thanks for reply.

Excel autocorrect work fine.(XP & 2003)

I also send the same code to my friend  who is progammer. Code worked fine by using english & german Versions.

and I checked Autocorrect List, it contained chinese item.

so I can only presume that is language VERSION issue.

anyway, thanks,