jjafferr:Hey ssblue
Got your email,
What reminded you of me, it must be my comments to your new Sentence Case question ;o)
Lets take care of your Spell check:
1-
make a new module, call it SpellingCheck
2-
Paste the following code in the module
Function SpellCheck(CheckWhat)
Dim X As Object
CheckWhat.SetFocus
Set X = CreateObject("Word.Application")
X.Visible = False
X.Documents.Add
X.Selection.Text = CheckWhat.Text
X.ActiveDocument.CheckSpelling
CheckWhat.Text = X.Selection.Text
X.ActiveDocument.Close savechanges:=wdDoNotSaveChanges
X.Quit
Set X = Nothing
End Function
3-
Save the module.
4-
In any Form, I will take WeekendScheduling SubForm as an example,
and will use the Field Housekeeping,
In Design view, Right click on Housekeeping and select properties,
go to On Lost Focus and paste the following there,
=SpellCheck([HouseKeeping])
5-
Save your Form.
Now, everytime you finish writing something in HouseKeeping field, the spell checker will check your spelling and will give you options for corrections.
For any Form/Field you want to spell check, on the Lost Focus of the field, paste
=SpellCheck([YourFieldName])
please change YourFieldName to the name of the field where you want to do the spell check,
in my example above,
YourFieldName was replaced with HouseKeeping
hope thi helps,
jaffer
|