Коктейл Бар Емили (Ретро – Емели – Е.Дончева ЕТ) 0 5 0 0 0

Коктейл Бар Емили (Ретро – Емели – Е.Дончева ЕТ)

    • Рейтинг
    • - Няма рейтинг
  • 1824 прегледа
0

     Бар.  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 “MyVar”, oWDBasic.Selection sTmpString = oWDBasic.GetDocumentVar(“MyVar”) tbContentElement.DOM.body.innerHTML = Left(sTmpString, Len(sTmpString) – 1)oWDBasic.DocClose 2oWDBasic.appclose MsgBox “Spell Check is complete”end sub 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 “MyVar”, oWDBasic.Selection sTmpString = oWDBasic.GetDocumentVar(“MyVar”) tbContentElement.DOM.body.innerHTML = Left(sTmpString, Len(sTmpString) – 1)oWDBasic.DocClose 2oWDBasic.appclose MsgBox “Spell Check is complete”end sub

    Оставете коментар и рейтинг за фирма Коктейл Бар Емили (Ретро – Емели – Е.Дончева ЕТ)

    Your email address will not be published. Required fields are marked *

    Спонсорирани фирми