CheckSpelling

[Jim McC]

On 6/21, CWillis asked about spell checking. NickHK said he should use the
syntax 2 but no explanation of how to do so. I have a situation where I have
a column of data, one word per cell, that I would like to do a spell check
on. If the word is good, save it to a different cell and increment for the
next entry. If the word is spelled incorrectly don't give me the goofy box,
just look at the next word. My biggest problem is that I don't understand
Application objects and stuff like that. I read the help boxes but with no
formal programming experience I can't understand it. I am able to write the
loop using the Cells property. Thanks for any help.

 

[Jim Cone]

Sub SpelWordCorect()
On Error GoTo SomethingsBroke
Dim x As Boolean
Dim rng As Excel.Range
Dim rngCell As Excel.Range
Set rng = Selection
For Each rngCell In rng
If Len(rngCell) Then
x = Application.CheckSpelling(rngCell.Value)
rngCell(1, 2).Value = x
End If
Next
SomethingsBroke:
Exit Sub
Beep
MsgBox Err.Number & " " & Err.Description
Resume Next
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Jim McC"
<[email protected]>
wrote in message
On 6/21, CWillis asked about spell checking. NickHK said he should use the
syntax 2 but no explanation of how to do so. I have a situation where I have
a column of data, one word per cell, that I would like to do a spell check
on. If the word is good, save it to a different cell and increment for the
next entry. If the word is spelled incorrectly don't give me the goofy box,
just look at the next word. My biggest problem is that I don't understand
Application objects and stuff like that. I read the help boxes but with no
formal programming experience I can't understand it. I am able to write the
loop using the Cells property. Thanks for any help.

 

[L. Howard Kittle]

Hi Jim McC,

Give this a go in the worksheet VB editor. Assumes the word list in column
A and column B is available.

Sub Check_Spelling()
On Error Resume Next
Dim R As Long
[A1].Select

For R = 1 To [A1].CurrentRegion.Rows.Count
If Application.CheckSpelling( _
Word:=Cells(R, 1).Value, _
IgnoreUppercase:=False) = True _
Then Cells(R, 2).Value = "*"
Next R

[A1].Sort _
Key1:=Range("B1"), _
Key2:=Range("A1"), _
Header:=xlNo

MsgBox "The correctly spelled words in" _
& vbCrLf & "Column A have an * in Column B"

End Sub

HTH
Regards,
Howard

 

[Jim Cone]

Correction...

Change the order of these two lines...
SomethingsBroke:
Exit Sub
-To-
Exit Sub
SomethingsBroke:

Jim Cone
San Francisco, USA
http://www.officeletter.com/blink/specialsort.html