Add word to MS Dictionary VBA

[MUKESHY12390]

Hi,

I found this code in this forum , when I run it shows new word has been added to Dictionary. But when I open dictionary

Path : - C:\Users\mukesh\AppData\Roaming\Microsoft\UProof
Name : "CUSTOM.DIC"

Can't see any new word. that would be helpful if someone able to point me at right direction.

Sub addToDict()
 'Standard module code, like: Module1.
 'Add a list of words in Column "A" to the Custom Dictionary!

 Dim o_WordApp As Object
 Dim o_ActCustDict As Object
 Dim r_MyCell As Range, r_MyRng As Range
 Dim s_MyWord$, s_ActCustDictNm$, s_MyMsg$
 Dim l_LastRow&, l_StartRow&, n&

 '********************************************************************
 'The Row that the"Add to Dictionary" Word List Starts in!
 l_StartRow = 3
 '********************************************************************
 l_LastRow = ActiveSheet.Range("A65536").End(xlUp).Row

 Set r_MyRng = ActiveSheet.Range(Cells(l_StartRow, 1), Cells(l_LastRow, 1))

 Set o_WordApp = CreateObject("Word.Application")
 Set o_ActCustDict = o_WordApp.Application.CustomDictionaries.ActiveCustomDictionary
 s_ActCustDictNm = o_ActCustDict.Name
 s_MyMsg = "Current custom dictionary: " & s_ActCustDictNm & vbLf & "Added: "

 Open o_ActCustDict.Path & "\" & o_ActCustDict.Name For Append As #1

 For Each r_MyCell In r_MyRng
 s_MyWord = r_MyCell.Value
 If Not IsEmpty(s_MyWord) Then
 If Not Application.CheckSpelling(s_MyWord, CustomDictionary:=s_ActCustDictNm, IgnoreUppercase:=False) Then
 n = n + 1
 Print #1, s_MyWord
 s_MyMsg = s_MyMsg & s_MyWord & ", "
 End If
 End If
 Next r_MyCell

 Close #1
 o_WordApp.Quit

 If n > 0 Then
 MsgBox s_MyMsg
 Else
 MsgBox s_MyMsg & " None needed to be Added!"
 End If

 End Sub

 

[MUKESHY12390]

It shows added character in this Language "楃楶慷浲獫਍歭敫獨Ⱳ਍橫慦摬歳਍歬慤楯橦牥਍慂浴湡獶畓数浲湡਍慂浴湡獶慭癲汥൳䈊瑡慭癮即灵牥慭൮搊摫橳摦൳圊瑡牥潷汲൤䴊卋਍䭍൓洊獫਍慢浴湡畂捲൥權歬桬਍慃楲扢慥䍮牵敳਍楗摮慴歬牥൳匊瑩൨䨊摵敧敭瑮਍慃睴浯湡਍楃楶慷浲獫਍歭敫獨Ⱳ਍橫慦摬歳਍歬慤楯橦牥਍慂浴湡獶畓数浲湡਍慂浴湡獶慭癲汥൳䈊瑡慭癮即灵牥慭൮搊摫橳摦൳圊瑡牥潷汲൤䴊卋਍䭍൓洊獫਍慢浴湡畂捲൥權歬桬਍慃楲扢慥䍮牵敳਍楗摮慴歬牥൳匊瑩൨䨊摵敧敭瑮਍慃睴浯湡਍楃楶慷浲獫਍湁瑵慭൮"

 

[MUKESHY12390]

Resolved