Spell Checker

[Guest]

How can I use MS Office XP Word spell checker in another window that I am
writing in, i.e. CNN news feedback window?

 

[David Candy]

Copy these lines into a new Text Document. Rename it Speller.vbs. Double click it and a dialog box will ask for a word or phrase (max 1024 characters) to spell check. The corrected string will be copied back to the clipboard. Requires Word 97 or 2000.

'Speller.vbs
'Checks spelling and copies corrected string to the clipboard
'
'Serenity Macros http://www.angelfire.com/biz/serenitymacros
'David Candy (e-mail address removed)
'
On Error Resume Next
strTitle="Spelling Checker"
A=""
B=""
Dim oWD
Set oWD = WScript.CreateObject("Word.Application")
ReportErrors "Creating Word"
oWD.Visible =false
oWD.Documents.Add
A=InputBox("Please enter the word to be checked","Quick Speller")
If oWD.CheckSpelling(A)=false then
oWD.Selection.TypeText A
oWD.ActiveDocument.CheckSpelling
Set myRange = oWD.ActiveDocument.Range(0,oWD.Selection.End)
B=myRange.Text
myRange.copy
Else
MsgBox A & vbCRLF & vbCRLF & "is spelt correctly",vbOKOnly + vbInformation, strTitle
End If
ReportErrors "Using Word's dictionary"
oWD.Quit 0
Set oWD=Nothing
If B<>"" Then
MsgBox B & vbCRLF & vbCRLF & "Has been copied to the clipboard",vbOKOnly + vbInformation, strTitle
End If


Sub ReportErrors(strModuleName)
If err.number<>0 then Msgbox "Error occured in " & strModuleName & " module of " & err.number& " - " & err.description & " type" , vbCritical + vbOKOnly, "Something unexpected"
Err.clear
End Sub

 

[here]

David,

that's a wunderful program for peepole like miself who have teribul truble
spullind

I shall find it very useful - Thanks

orc


"David Candy" <.> wrote in message

Copy these lines into a new Text Document. Rename it Speller.vbs. Double
click it and a dialog box will ask for a word or phrase (max 1024
characters) to spell check. The corrected string will be copied back to the
clipboard. Requires Word 97 or 2000.

'Speller.vbs
'Checks spelling and copies corrected string to the clipboard
'
'Serenity Macros http://www.angelfire.com/biz/serenitymacros
'David Candy (e-mail address removed)
'
On Error Resume Next
strTitle="Spelling Checker"
A=""
B=""
Dim oWD
Set oWD = WScript.CreateObject("Word.Application")
ReportErrors "Creating Word"
oWD.Visible =false
oWD.Documents.Add
A=InputBox("Please enter the word to be checked","Quick Speller")
If oWD.CheckSpelling(A)=false then
oWD.Selection.TypeText A
oWD.ActiveDocument.CheckSpelling
Set myRange = oWD.ActiveDocument.Range(0,oWD.Selection.End)
B=myRange.Text
myRange.copy
Else
MsgBox A & vbCRLF & vbCRLF & "is spelt correctly",vbOKOnly + vbInformation,
strTitle
End If
ReportErrors "Using Word's dictionary"
oWD.Quit 0
Set oWD=Nothing
If B<>"" Then
MsgBox B & vbCRLF & vbCRLF & "Has been copied to the clipboard",vbOKOnly +
vbInformation, strTitle
End If


Sub ReportErrors(strModuleName)
If err.number<>0 then Msgbox "Error occured in " & strModuleName & " module
of " & err.number& " - " & err.description & " type" , vbCritical +
vbOKOnly, "Something unexpected"
Err.clear
End Sub

-- --------------------------------------------------------------------------------------------------http://webdiary.smh.com.au/archives/_comment/001075.html================================================="Cyrus"

 

[David Candy]

Hurry up and use it.

 

[here]

I did for this, but can you do one what checks grammar?

orc



"David Candy" <.> wrote in message
Hurry up and use it.

 

[David Candy]

Replace the command CheckSpelling with, can you guess, mmmm, let me see, how about, CheckGrammar.

Remember there are two places to change it.

If spelling/grammar is correct it skips most of the program but if not it uses the check spell/grammar dialog and checks interactively.

I personally just use an OE message window.

 

[here]

now your just showing off!

Klingon translator?


"David Candy" <.> wrote in message
Replace the command CheckSpelling with, can you guess, mmmm, let me see, how
about, CheckGrammar.

Remember there are two places to change it.

If spelling/grammar is correct it skips most of the program but if not it
uses the check spell/grammar dialog and checks interactively.

I personally just use an OE message window.