HOWTO: Use the Word 6.0 SpellChecker Via OLE Automation in Visual Basic

MORE INFORMATION

Step-by-Step Example

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add a text box (Text1) and CommandButton (Command1) to Form1.
3. Set the multi-line property of the text box to true.
4. Add the following code to the Form_Load event:

      Private Sub Form_Load()
         Command1.Caption = "Press to SpellCheck"
         Text1.Text = "The Seattle Mariners ar goig all the wa this yeer!!"
      End Sub
   					

5. Place the following code in the Command1 Click event procedure of Form1:

         Private Sub Command1_Click ()
            Dim oWDBasic As Object
            Dim sTmpString As String
            Set oWDBasic = CreateObject("Word.Basic")
            oWDBasic.FileNew
            oWDBasic.Insert Text1.Text
            On Error Resume Next
            oWDBasic.ToolsSpelling
            oWDBasic.EditSelectAll
            oWDBasic.SetDocumentVar "MyVar", oWDBasic.Selection
            sTmpString = oWDBasic.GetDocumentVar("MyVar")
            Text1.Text = Left(sTmpString, Len(sTmpString) - 1)
            MsgBox "Spell Check is complete"
         End Sub
   					

6. Run the program.

   Mariners(Ignore)
   ar(Change to are)
   goig(Change to going)
   wa(Change to way)
   yeer(Change to year)
				

   The Seattle Mariners are going all the way this year!!