To use Spell Checking in a runtime environment, you must write a procedure to run the installed spelling checker already on your user's computer or look for a 3rd party add-on that does spell checking. If Microsoft Word 97 is installed on your user's computer, you can write a procedure for a command button's OnClick property.
The following 2 examples of code can be attached to the OnClick property of a command button called cmdSpell. The first example checks the contents of a single control. The second spell checks the entire form.
'************ Code Example 1 Start **************** ' Adaptation by Terry Wickenden of code ' from Microsoft Knowledge Base Private Sub cmdSpell_Click() Dim ctlSpell As Control Set ctlSpell = Screen.PreviousControl If TypeOf ctlSpell Is TextBox Then If IsNull(Len(ctlSpell)) Or Len(ctlSpell) = 0 Then MsgBox "There is nothing to spell check." ctlSpell.SetFocus Exit Sub End If With ctlSpell .SetFocus .SelStart = 0 .SelLength = Len(ctlSpell) End With DoCmd.RunCommand acCmdSpelling Else MsgBox "Spell check is not available for this item." End If ctlSpell.SetFocus End Sub ' ****************** Code Example 1 End ******************** ' ***************** Code Example 2 Start ******************* ' Adaptation by Terry Wickenden of code ' from Microsoft Knowledge Base ' additional suggestions from Arvin Meyer Private Sub cmdSpell_Click() Dim ctlSpell As Control DoCmd.SetWarnings False ' Enumerate Controls collection. For Each ctlSpell In Me.Controls If TypeOf ctlSpell Is TextBox Then If Len(ctlSpell) > 0 Then With ctlSpell .SetFocus .SelStart = 0 .SelLength = Len(ctlSpell) End With DoCmd.RunCommand acCmdSpelling End If End If Next DoCmd.SetWarnings True End Sub ' ****************** Code Example 2 End ********************
Return to Example List