Option Explicit
dim textactiu, textinactiu

textactiu = ""
textinactiu = ""

Sub window_onload()
On Error Resume Next
Set textinactiu = document.body.createTextRange()
textactiu = textinactiu.htmlText
document.body.innerHTML=textactiu
If Not Err.Number = 0 Then
MsgBox "Hi ha hagut un error en l' script"
End If
End Sub