There is a spell checker function which is written in VB Script. The
function works well when tested seperately. But when the function is
called from Java Script, the function shows an Error saying " A run
time error has occured. Do you wish to debug? Line :0 , Object
Expected". I just know that it is a Java Script error.
Any suggestions on how to resolve this problem ? What could be the
possible reasons for this error message?
Here is the spell checker function: The way this function is called
from JavaScript is like this :
<span style="float:right;text-align:right;width:50%"><a
href="javascript:SpellCheck(frmMain.taComment.inne rText)">Spelling
Checker</a></span>
<%
function SpellCheck(strComments)
dim msg
dim objWord, objDocument, NumberofWords, NumberofErrors
Set objWord = CreateObject("Word.Application")
Set objDocument = objWord.Documents.Add
objDocument.Content = strComments
NumberOfWords = objDocument.Words.count
NumberOfErrors = objDocument.SpellingErrors.Count
If NumberOfErrors = 0 Then
Response.Write "No Spelling Errors" & "<br>"
'NO spelling errors...
Else
'loop through each word in the document
i=1
while i < NumberOfWords
if objDocument.Words(i).SpellingErrors.Count > 0 then
msg = "Misspelled: " & objDocument.Words(i).text & vblf &
"<br>"
'Yes, there are errors, see if there are any suggestions
for xSuggestions = 1 to
objDocument.Words(i).GetSpellingSuggestions.count
if xSuggestions = 1 then
msg = msg & vblf & "Suggestions: " &
objDocument.Words(i).GetSpellingSuggestions.Item(1 ).Name
else
msg = msg & vblf & " " &
objDocument.Words(i).GetSpellingSuggestions.Item(x Suggestions).Name
end if
next
Response.Write msg
else
end if
i = i + 1
wend
end If
objDocument.saveas "c:\t.doc"
objDocument.close false
set objDocument = nothing
objWord.quit false
Response.Write "Spell check is finished!"
end function
%>