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?