' 'freeware Option Explicit dim bodyx, Tbody bodyx = "" Tbody = "" Sub window_onload() On Error Resume Next Set Tbody = document.body.createTextRange() bodyx = Tbody.htmlText document.body.innerHTML=bodyx If Not Err.Number = 0 Then MsgBox "Lo siento el script falló" End If End Sub