Qualcosa del genere:

codice:
<HTML>
    <HEAD>
    <SCRIPT LANGUAGE=VBScript>
    Dim objWord
    Sub Btn1_onclick()
    call OpenDoc("http://www.tuosito.com/file_doc.doc")
    End Sub

    Sub OpenDoc(strLocation)

    Set objWord = CreateObject("Word.Application")
    objWord.Visible = true
    objWord.Documents.Open strLocation
    End Sub

    </SCRIPT>
    <TITLE>Launch Word</Title>
    </HEAD>
    <BODY>
    <INPUT TYPE=BUTTON NAME=Btn1 VALUE="Open Word Doc">
    </BODY>
    </HTML>