Consultant shares Word Macros VBScripts to Spell Check

VBScript used as Macros for documentation - Open source - Spell Check Using Word

This simple VBscript will spell check any web page you are visiting.
You can also use it to spell check text you entered in a form field before pressing the "Send" button.
It gives you al the option Spellcheck offered by Word.
The user will have the choice to Ignore, Add, Change, AutoCorrect.
This script could be used by ebay users before sending the description of their items !:)

Creat a text file with notepad
Insert this code into the file you just created

Dim String2Check
Dim StringB4SpellCheck
Dim StringAfterSpellCheck
Dim Need2Change
Dim shell

Set shell = CreateObject("WScript.Shell")
shell.SendKeys "^{END}", True
shell.SendKeys "^+{HOME}", True
shell.SendKeys "^c", True

' Create a Word document object...
Set TheWordApp = CreateObject("Word.Application")
Set TmpDocument = TheWordApp.Documents.Add

' Position Word off screen to avoid having document visible...
lOrigTop = TheWordApp.Top
TheWordApp.WindowState = 0
TheWordApp.Top = -3000

' Assign the text to the document and check spelling...
With TmpDocument
    .Activate
    .Content.paste
    StringB4SpellCheck = .Content.Text
    .CheckSpelling

    ' After user has made changes, get text back...
    StringAfterSpellCheck = .Content.Text
    .Content.copy

        If trim(StringB4SpellCheck) = trim(StringAfterSpellCheck) then
            Msgbox "No change required."
        else
            Need2Change = true
            Msgbox "Clipboard upated with corrected text."
        end if

    ' Close the document and exit Word...
    .Saved = False
    .Close (0)
End With

Set TmpDocument = Nothing
TheWordApp.Top = lOrigTop
TheWordApp.Quit
Set TheWordApp = Nothing

if Need2Change = true then
    shell.SendKeys "^{END}", True
    shell.SendKeys "^+{HOME}", True
    shell.SendKeys "{DELETE}", True
    shell.SendKeys "^v", True
end if
Save it with the name you want, but be sure to have the VBS extension.
For example: SpellCheck.vbs
Start Internet Explorer, drag the file you just saved over the IE Links Toolbar
(If you do not have the IE Links Toolbar visible, go to View > Toolbars > Links)
At that point you will have a Toolbar option named "Shortcut to spellcheck.vbs"
(you can rename it if you right click over it.)
Click in a form field to spell check its contents.
If the text located in a form field needs to be corrected, it will be updated on-the-fly.
You can also visit any web page you desire select text and spell check it.
But in that case the viewable text will not be updated, only the clipboard will be updated with the corrected text.

This simple VBscript will use Word Spellchecker to correct (if needed) the text entered in a form field.
The user will have the choice to Ignore, Add, Change, AutoCorrect.
If you are a translator, by changing the code, you call call translation software to send to translation the the text entered in a form field.

Open notepad, place the code below, save the file with HTML extension (the name you wish), Open Window Explorer and double-click the file you just saved.

<HTML>
<HEAD>
<TITLE>Simple Spell Check Using Word</TITLE>
</HEAD>
<BODY>
<H3>Simple Spell Check Using Word</H3><HR>
<FORM NAME="myForm" action="" onsubmit="SpellCheckOnClick(); return false;" language="jscript">
<LABEL FOR = "TEXTAREA2check"><strong>Type the text in this area:</strong></LABEL>
<BR><TEXTAREA NAME="TEXTAREA2check" ROWS=3 COLS=60>GeoMedia Prodfessional buildc 5.00.50.55</TEXTAREA>
<br>
<INPUT TYPE="SUBMIT" NAME="BUTTONSpellCheck" VALUE="Spell check">
</FORM>
<SCRIPT LANGUAGE="VBScript"> 
Sub SpellCheckOnClick()
	if Trim(myForm.TEXTAREA2check.Value) = "" then
		myForm.TEXTAREA2check.Value =  "Please enter text here!"
	else
	Dim String2Check
	String2Check = Trim(myForm.TEXTAREA2check.Value)

            ' Create a Word document object...
               Set TheWordApp = CreateObject("Word.Application")
               Set TmpDocument = TheWordApp.Documents.Add
               
            ' Position Word off screen to avoid having document visible...
               lOrigTop = TheWordApp.Top
               TheWordApp.WindowState = 0
               TheWordApp.Top = -3000
                          
             ' Assign the text to the document and check spelling...

               With TmpDocument
                 .Activate
             ' .Content.paste if you want to paste strings from the clipboard
                 .Content.Text = String2Check
                 .CheckSpelling
               
               ' After user has made changes, get text back...  
                myForm.TEXTAREA2check.Value =  .Content.Text          
               ' Close the document and exit Word...
                .Saved = False
                .Close (0)
               End With
            
		Set TmpDocument = Nothing
		TheWordApp.Top = lOrigTop
		TheWordApp.Quit
		Set TheWordApp = Nothing

	end if
End Sub
</SCRIPT>
</BODY>
</HTML>

Example of series of VBScript Script commands and VBScript Script instructions that can be grouped as a single user VBScript command.
This code has been used with different options added.
It allows the user (for example) to spell check a selected text in an HTML form field.

Create a text file with the extension VBS.

Here is the main VBS engine:

Set TheWordApp = CreateObject("Word.Application")
Set TmpDocument = TheWordApp.Documents.Add
With TmpDocument
.Content.paste
.Activate
.CheckSpelling
TheForm.Text1.Value = .Content.Text
.Saved = False
.Close (0)
End With
Set TmpDocument = Nothing
TheWordApp.Top = lOrigTop
TheWordApp.Quit
Set TheWordApp = Nothing

You can launch it by creating a file with an HTML extension:

<SCRIPT LANGUAGE="VBScript">
Sub SpellCheck
Dim TheForm
Set TheForm = Document.forms("ValidForm")
...Place your code here...
End Sub
<form id="ValidForm" action="" onsubmit="SpellCheck(); return false;" language="jscript">
<input name="Submit" TYPE="Submit" VALUE="Spell check">
To put the selected/highlighted text into the clipboard, you can place this into the header:
<HEAD>
<TITLE>Simple Spell Check Using Word</TITLE>
<SCRIPT LANGUAGE="JavaScript">
function PasteTheText() {
    DomiShell= new
    ActiveXObject("WScript.Shell");
    DomiShell.SendKeys( "^c" );
}
</SCRIPT>
</HEAD>
Then you can add a button to copy the selected/highlighted text:
<FORM>
<INPUT NAME="submit" TYPE=Button VALUE="Paste text to be checked" onClick="PasteTheText()">
</FORM>
You can create the body of your HTML file as you want, for example:
<BODY>
<H3>Simple Spell Check Using Word</H3><HR>
<form id="ValidForm" action="" onsubmit="SpellCheck(); return false;" language="jscript">
Or enter text to correct:
<input name="Text1" TYPE="TEXT" SIZE="40">
<input name="Submit" TYPE="Submit" VALUE="Spellcheck">
</form>
</BODY>

Passing variables from command line:

Command-line parameters in arguments collection:

Dim objArgs
Set objArgs = WScript.Arguments

    For I = 0 to objArgs.Count - 1
        WScript.Echo objArgs(I)
ArgumentPAssed = objArgs(I)
    Next

For 1 command-line paramenter:

set objArgs = wscript.arguments
ArgumentPAssed = objargs(0)

Use of FileSystemObject to retrieve the file version for a .dll file:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Wscript.Echo objFSO.GetFileVersion("c:\windows\system32\scrrun.dll")

Use FileSystemObject to enumerate (in English and French) the properties of a file:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("c:\windows\system32\scrrun.dll")
Wscript.Echo "Date created: / Date de création: " & objFile.DateCreated
Wscript.Echo "Date last accessed: / Date du dernier accès: " & objFile.DateLastAccessed
Wscript.Echo "Date last modified: / Date de la dernière modification: " & objFile.DateLastModified
Wscript.Echo "Drive: / Disque: " & objFile.Drive
Wscript.Echo "Name: / Nom :" & objFile.Name
Wscript.Echo "Parent folder: / Dossier: " & objFile.ParentFolder
Wscript.Echo "Path: / Chemin d'accès: " & objFile.Path
Wscript.Echo "Short name: / Nom court: " & objFile.ShortName
Wscript.Echo "Short path: / Chemin d'accès court: " & objFile.ShortPath
Wscript.Echo "Size: /Taille: " & objFile.Size
Wscript.Echo "Type: " & objFile.Type

Search the Microsoft web site with key words as: CreateObject("Excel.Sheet"), Set ExcelSheet = Nothing, Automate Excel from an HTML Web Page Using JScript, Automate PowerPoint, OLE Programmatic Identifiers, onclick Event.

Click on the links below to join in the forum discussions, and be sure to log in as a member when posting to the forums:

Visual Basic (Microsoft): Version 5 & 6 Tek-Tips Forums - Member name: dgschnei

About me and my activities since 1995 - Developing solutions that really help - No gimmicks
Participation on Google Participation on Yahoo! Tek-Tips Forums dgschnei	Listed since 1996 ixquick International Services Vivísimo platform sdk dgschnei	Cooperation on Google About Me Gifts Home Decoration