Редактирование в TCppWebBrowser

IHTMLDocument2* pDoc = NULL;
    IHTMLSelectionObject* pSel = NULL;
    IHTMLElement* pElem = NULL;

    if( WB->Document )
    {
        WB->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDoc);

        if( pDoc )
        {
            pDoc->get_selection(&pSel);
            pDoc->Release();
            if (pSel)
            {
                IDispatch* pRange;
                pSel->createRange(&pRange);
                pSel->Release();
                IHTMLTxtRange* pTxtRange = NULL;
                pRange->QueryInterface(IID_IHTMLTxtRange, (LPVOID*)&pTxtRange);
                TVariant vcolor(clGreen); VARIANT_BOOL bresult = VARIANT_FALSE;
                pTxtRange->execCommand(L"BackColor",VARIANT_FALSE,vcolor ,&bresult);
                pTxtRange->Release();

            }// end if (pSel)
        }// end if( pDoc )
    }// end if( WB->Document )

TMenuItem *itm = (TMenuItem*) Sender;
  AnsiString pers;
  if (itm->Name == "N101") pers = "100%";
  if (itm->Name == "N151") pers = "150%";
  if (itm->Name == "N201") pers = "200%";
  if (itm->Name == "N251") pers = "250%";

  CComPtr<IHTMLDocument2>spDoc;
  CComPtr<IHTMLSelectionObject>spSelObj;
  CComPtr<IHTMLTxtRange>spTxtRng;
  CComPtr<IHTMLElement>spEl;
  WB->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&spDoc);
  BSTR html, txt, p_tag, o_html;
  spDoc->get_selection(&spSelObj);
  CComPtr<IHTMLStyle>spStl;
  spSelObj->createRange((IDispatch**)&spTxtRng);
  CComPtr<IHTMLCurrentStyle>spCurStl;
  spTxtRng->QueryInterface(IID_IHTMLCurrentStyle, (LPVOID*)&spCurStl);
  spTxtRng->parentElement(&spEl);

  spEl->get_tagName(&p_tag);
  AnsiString tg = p_tag;
  if (tg != "SPAN")
     {
       spEl = NULL;
       spDoc->createElement(CComBSTR(OLESTR("SPAN")), &spEl);
     }

  spTxtRng->get_htmlText(&html);
  spEl->put_innerHTML(html);

  CComPtr<IHTMLElementCollection>spElCol;
  spEl->get_children((IDispatch**)&spElCol);

  long ln;
  spElCol->get_length(&ln);
  for (long i=0; i<ln; i++)
      {
        TVariant ind(i);
        CComPtr<IHTMLElement>spEl2;
        CComPtr<IDispatch>spDisp;
        spElCol->item(ind,ind, (IDispatch**)&spDisp);
        spDisp->QueryInterface(IID_IHTMLElement, (LPVOID*)&spEl2);
        spStl = NULL;
        spEl2->get_style(&spStl);
        VARIANT v;
        v.vt = VT_BSTR;
        v.bstrVal = WideString(pers);
        spStl->put_lineHeight(v);
        spEl->put_className(WideString("MsoNormal"));
      }

  spEl->get_innerHTML(&o_html);
  spTxtRng->pasteHTML(o_html);