Wb. OleObject. Document. ParentWindow. Sethtml (pri_html);//note that the function name case

Some machine error: Method 'sethtml' not supported by automation object

CodePudding user response:

Try this
Ihd:=IHTMLDocument2 (WBB. Document);
Range1:=(ihd) body AS IHTMLBodyElement). CreateTextRange;
Range1. The Collapse (False);
Range1. PasteHTML (m1) Lines) Text);