Global textb$=""  
  If Len(GetClipboardText())<1  
  MessageRequester("Проверка орфографии", "Буфер обмена не содержит текст!", 0)  
End  
EndIf  

textb$=GetClipboardText()  

dhToggleExceptions(#True)  
ObjWord = dhCreateObject("Word.Application")  

dhGetValue("%d", @Result, ObjWord, ".CheckSpelling(%T)",@textb$)  
  If Result <0  
  MessageRequester( "Проверка орфографии","Ошибки не найдены!" )  
  dhReleaseObject(ObjWord)  
  End  
  Else  
;- "Ошибки есть!"  
  dhPutValue (ObjWord, ".Visible = %b", #False)  
  dhCallMethod (ObjWord, "Documents.Add")  
  dhCallMethod (ObjWord, "Selection.TypeText(%s)", @textb$)  
  dhPutValue (ObjWord,".Options.CheckGrammarWithSpelling = %b",#False)  
  dhPutValue (ObjWord,".Options.IgnoreUppercase = %b",#False)  
  dhCallMethod (ObjWord,".ActiveDocument.CheckSpelling")  
  dhCallMethod (ObjWord,".Selection.WholeStory")  
  dhCallMethod (ObjWord, ".Selection.Copy")  
  dhCallMethod (ObjWord, ".ActiveDocument.Close(%b)",0); (0)  
  dhCallMethod (ObjWord, ".Quit")  
   
   
dhReleaseObject(ObjWord)  
EndIf