Sub Button1_Action
Dim jo As JavaObject = HTMLEditor1
Dim r As Reflector
r.Target = jo.RunMethodJO("getSkin", Null)
jo = r.GetField("webView")
jo.RunMethod("requestFocus", Null)
jo = jo.RunMethod("getEngine", Null)
jo.RunMethod("executeScript", Array("document.body.focus()"))
jo.RunMethod("executeScript", Array($"
var el = document.body;
if (typeof window.getSelection != "undefined"
&& typeof document.createRange != "undefined") {
var range = document.createRange();
range.selectNodeContents(el);
range.collapse(false);
var sel = window.getSelection();
sel.removeAllRanges();
sel.addRange(range);
} else if (typeof document.body.createTextRange != "undefined") {
var textRange = document.body.createTextRange();
textRange.moveToElementText(el);
textRange.collapse(false);
textRange.select();
}
"$))
End Sub