CheckSpelling

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Jim McC - 22 Sep 2006 22:08 GMT

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.

Reply to this Message

Jim Cone - 23 Sep 2006 02:49 GMT

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

Signature

Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware

"Jim McC"
<JimMcC@discussions.microsoft.com>
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.

Reply to this Message

Jim Cone - 25 Sep 2006 16:14 GMT

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

Reply to this Message

L. Howard Kittle - 23 Sep 2006 22:58 GMT

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

> 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
[quoted text clipped - 8 lines]
> the
> loop using the Cells property. Thanks for any help.

Reply to this Message