sub SpellCheck
	On Error Resume Next
		dim pState, elm
        window.status = L_StatusCheckingSpelling_Message
        if not document.ToolbarInterface is nothing then
			set pState = document.ToolbarInterface.CreateSpellCheckState
			for each elm in document.all
				if pState.CheckPlaceholderSpelling(elm) = true then
					window.status = L_StatusCheckCancelled_Message
					exit sub
				end if
			next
			window.status = L_StatusCheckDone_Message
        end if
end sub