Hi
I am trying to write a VBA code that List all possible words that can make with some specific alphabets, in Microsoft Office Word.
but I have trouble with Application.CheckSpelling() function. It works correctly in English Language. but it does not work for Persian (and others Assian) Language.
also, I tried to defined a custom dictionary file, but nothing changed.


A simple code that shows this problem is :


Sub ListPossibleWords()


'part 1) testing two English words.
myword1 = "aplpe"
myword2 = "apple"




Ans1 = Application.CheckSpelling(myword1)
Ans2 = Application.CheckSpelling(myword2)




MsgBox myword1 & " is: " & Ans1 & vbNewLine & myword2 & " is: " & Ans2






'part 2) testing two Persian words.


myword1 = "سسیب"
myword2 = "سیب"




Fapath = "D:\my_persian-words.dic"
Ans1 = Application.CheckSpelling(myword1)
Ans2 = Application.CheckSpelling(myword2)




MsgBox myword1 & " is: " & Ans1 & vbNewLine & myword2 & " is: " & Ans2




End Sub



The results are:


aplpe is: False
apple is: true


سسیب is: True
سیب is: True


Why The Application.CheckSpelling always return "True", for Persian words? and how can I fix it?