sub Executa(sProg)
    on error resume next
    Set objWord = CreateObject("Word.Application")
    Set colTasks = objWord.Tasks

    For Each objTask in colTasks
        if objTask.Name = sProg then 
            objTask.Activate
            exit for
        end if
    Next
    objWord.Quit    
    window.close
end sub

Sub TextoHora()
    document.all.dClock.innerHTML = FormatDateTime(Now(),3) 
End Sub

Sub TextoData()
    document.all.dData.innerHTML = "| " & FormatDateTime(Now(),2) 
End Sub