bien despues de una gran lucha de dos años creo que lo solucione
Código:
Private Sub ObtenerElemementos()
Dim Element As Object
Set Element = HTML.parentWindow.event.srcElement
Dim e As HTMLElementCollection
Do While Element.tagName <> "HTML"
Select Case Element.tagName
Case "B", "STRONG"
EP.Blond = 1
Case "I", "EM"
EP.Italic = 1
Case "U"
EP.Underline = 1
Case "FONT"
EP.FontFace = Element.face
EP.FontSize = Val(Element.Size)
EP.ForeColor = Element.Color
Case "P"
EP.Aling = Element.Align
Case "SPAN"
EP.BackColor = Element.getAttribute("style").backgroundColor
End Select
Set Element = Element.parentElement
Loop
End Sub
ahora bien esto me funciona en el evento click
utilizando HTML.parentWindow.event.srcElement
pero como puedo detectar cuando preciono una tecla osea en la posicion donde se encuentra el clip del cursor prove con el evento onkeydown y onkeypress pero el elemento que obtengo es el del Body y bueno la funcion anterior no me sirve
vale aclarar que estoy trabajando en Document.designMode = "On" poreso es que puedo escrivir sobre el documento, para que se entienda quiero hacer algo asi como un editor html.
Gracias y espero almenos una respuesta.