Can I check a word exists in VBA

[markh9999]

I want to check if text in cell A1 (for example) is a legal word. Is there a way in VBA to look this word up and report back on its validity?

I want to use VBA as I will have lots of words to check (in say cells A1 to A999) and want it to check them all and maybe put a Yes in column B if valid and No if not.

Thanks for any help.

 

[JoeMo]

I want to check if text in cell A1 (for example) is a legal word. Is there a way in VBA to look this word up and report back on its validity?

I want to use VBA as I will have lots of words to check (in say cells A1 to A999) and want it to check them all and maybe put a Yes in column B if valid and No if not.

Thanks for any help.

Are you aware that Excel has a built-in spell checker?

 

[markh9999]

Yes Joe, I know about the spell check but how do I access it to check words automatically via VBA?

 

[VoG]

Try

Sub test()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    With Range("A" & i)
        .Offset(, 1).Value = Application.CheckSpelling(.Value)
    End With
Next i
End Sub

 

[Vignesh Rocks]

Hi,

Try the below code. If there is any blank cell in the range A1:A999 then it would still show "Yes" otherwise it should do what you are looking for...

Sub legal_word()
For r = 1 To 999
spellresult = Application.CheckSpelling( _
Word:=Cells(r, 1), IgnoreUppercase:=True)
If spellresult = True Then
Cells(r, 2) = "Yes"
Else
Cells(r, 2) = "No"
End If
Next
End Sub


THanks,
Vignesh

 

[markh9999]

Many thanks to you both. Both solutions work a treat !!

Mark

 

[markh9999]

This is really weird.

I just tried the letters of the alphabet (a to z) and it says all are legal words except the letter 'i', which, apart from 'a' I would of thought was the only legal one letter word? Any ideas what Excel is doing? It does the same thing for both coding solutions mentioned above?

Thanks

 

[VoG]

I would check what conditions are set when you spell check manually.

 

[markh9999]

Hello VoG

Nothing unusual is set (I went to Excel Options and checked under 'Proofing' and nothing seemed unusual).

It's doing this:

the TRUE
cat TRUE
b TRUE
i FALSE
x TRUE
y TRUE
z TRUE

 

[markh9999]

PLEASE - can anyone help with this problem - are there any parameters I need to set for the Checkspelling command?