Skip to content

Latest commit

 

History

History
73 lines (54 loc) · 1.85 KB

README.md

File metadata and controls

73 lines (54 loc) · 1.85 KB

Spell Checker

Description

Use Microsoft word spell checker utility

More Info

Client machine has word 2000

Browser is I.E.

Activex scripting is enabled

Submitted On
By Anil P
Level Advanced
User Rating 4.9 (44 globes from 9 users)
Compatibility ASP (Active Server Pages), HTML, VbScript (browser/client side)

Category |Internet/ Browsers/ HTML World |ASP / VbScript Archive File |

Source Code

<SCRIPT LANGUAGE=vbscript>
<!--
'SpellChecker
' PURPOSE: This function accepts Text data for which spell checking has to be done.
' Return's Spelling corrected data
'
Function SpellChecker(TextValue)
	Dim objWordobject
 	Dim objDocobject
 	Dim strReturnValue
 	'Create a new instance of word Application
 	Set objWordobject = CreateObject("word.Application")
 	objWordobject.WindowState = 2
 	objWordobject.Visible = True
	'Create a new instance of Document
 	Set objDocobject = objWordobject.Documents.Add( , , 1, True)
 	objDocobject.Content=TextValue
 	objDocobject.CheckSpelling
 	'Return spell check completed text data
	strReturnValue = objDocobject.Content
	'Close Word Document
 	objDocobject.Close false
	'Set Document to nothing
 	Set objDocobject = Nothing
	'Quit Word
 	objWordobject.Application.Quit True
	'Set word object to nothing
 	Set objWordobject= Nothing
    SpellChecker=strReturnValue
End Function
-->
</SCRIPT>