VBA Snippets

Spelling_Check

Activate the spell checker on the active document.

Public Sub Spelling_Check()
Const sPROCNAME As String = "Spelling_Check"
   On Error GoTo AnError


   If gbDEBUG = False Then Exit Sub
AnError:
   Call Error_Handle(msMODULENAME, sPROCNAME, 1,
        "activate the spell checker on the active document")
End Sub