Try this , Hope I did understand your Query..
Public MyTest As Boolean
Public myWord As String
Sub GetText()
On Error Resume Next
Dim ws As Worksheet
Dim st As String
Dim arr() As String
Dim cell As Range
Set ws = ActiveSheet
Sheets("WrongWord").Delete
Sheets.Add.Name = "WrongWord"
ws.Activate
st = ""
For Each cell In ActiveSheet.UsedRange
st = st & " " & cell.Value
Next
arr = Split(st, " ")
For i = LBound(arr) To UBound(arr)
myWord = arr(i)
Call mySpell
If MyTest = False Then Sheets("WrongWord").Range("A"
& Sheets("WrongWord").Range("A20000").End(xlUp).Row + 1).Value = myWord
MyTest = False
Next
Sheets("WrongWord").Activate
MsgBox "Total " &
WorksheetFunction.CountA(ActiveSheet.Cells) & " Wrong Word Found in Data ",
vbInformation
End Sub
Sub mySpell()
MyTest = Application.CheckSpelling(myWord)
End Sub
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Anish Shrivastava
Sent: Monday, July 25, 2011 4:24 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Wrong Keywords in Excel - Spell Check
Hi,
Is it possible to store those keywords which is being found using Spellcheck
option in excel.
I have a list of values in Column "A" on which I run the spellcheck. Now I
want, excel(vba) to store those wrong values in sheet2 which is being found
by spellcheck function so that I can populate their replacement (expanded
version).
For example there would be a value as "Mktg" in my list which will be found
by spellcheck. "Mktg" has to be expanded as "Marketing" which I do manually
and also enter this "mktg" in my repository manually for the future
reference so that I can run my macro and replace "mktg" with "Marketing".
I need your help in how to store those wrong keywords in sheet2 with each
occurrence.
Hope I am able to explain my problem.
Any help is appreciated.
Thanks,
Anish
--
----------------------------------------------------------------------------
------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
