Advanced VB/Office Guru™ SpellChecker™

[tony007]

Thats not in my code example but it loks like your missing a class or control in your project.

Thanks for u reply. Oh i was thinking it was u code but now i tried your code and i get the following error:

Compile error:

User-defined type not defined

and pointing at :

Public moApp As Word.Application


could u help me fix this error. I added one button and a textbox to the project. What else do i need such as refrences or any other controles?

Furthermore, is it possible to underline the spelling mistakes as we type and by clicking on mistake it gives suggestions? Also is it possible to make this program so it only does what i just described on external editboxes ? I be happy if u help me here.Thanks

[jmargel]

I am using the code in an access 2000 database. I have a richtextbox using it as a mini-word application. When I run the code it says the spelling is complete (no spelling errors) but it's clear that I do have them. I will just type in a bunch of letters and it passes.

I noticed then in word it would do the same thing, I had to delete the custom.dic file to get word correctly working again with the default dictionary. However the problem still presists in my application.

Has anyone got this working in an access or richtextbox environment?

[jmargel]

For RichTextBoxes I found another piece of code that works much better. Create a button and put this in the code. RTFText is the name of your RichTextBox. I'm using this in Access 2000 and it is working great.

On Error GoTo SpellCheckErr
	Dim oWord As Object

	Set oWord = CreateObject("Word.Application")

	'Save the RTF Box contents to a temporary file
	rtfText.SaveFile "C:\TEST.RTF", rtfRTF

	'Open the saved document and spellcheck it
	oWord.Documents.Open ("C:\TEST.RTF")
	oWord.ActiveDocument.SpellingChecked = False
	oWord.Options.IgnoreUppercase = False
	oWord.ActiveDocument.CheckSpelling

	'Save the changes to the RTF file & close
	oWord.ActiveDocument.Save
	oWord.ActiveDocument.Close
	oWord.Quit

	'Load the changes back to the rtf text box.
	rtfText.LoadFile "C:\TEST.RTF", rtfRTF

	Set oWord = Nothing
	Screen.MousePointer = vbDefault
	MsgBox "Spell Check is complete", _
		vbInformation, "Spell Check"
	Exit Sub

SpellCheckErr:
	MsgBox Err.Description, vbCritical, _
		"Spell Check"
	Set oWord = Nothing

[VBLearner6]

Finally, which code I can use in my VB6 program for spell-check? Please help me out.

Thanks.

[RobDog888]

Finally, which code I can use in my VB6 program for spell-check? Please help me out.

Thanks.

Whats your question/issue?