Бар. TBContentElementMouseOver(); sub spellCheck()txt=tbContentElement.DOM.body.innerHTML' Dim oWDBasic As Object' Dim sTmpString As StringSet oWDBasic = CreateObject("Word.Basic") oWDBasic.FileNew oWDBasic.Insert txt 'On Error Resume Next oWDBasic.ToolsSpelling oWDBasic.EditSelectAll oWDBasic.SetDocumentVar…