Prøv følgende, du må selv skaffe dokumentet 'wordstart.doc' og sørge for, at det ligger det rigtige sted. Siden, når det begynder at spille, kan du fjerne de mange 'msgbox' udskrifter.
<HTML>
<BODY>
<SCRIPT LANGUAGE="VBScript">
dim app ' must be global, otherwise Word will die when
' app goes out of scope
sub word_button()
msgbox "before createobject"
set app = CreateObject("Word.Application")
msgbox "after createobject"
app.Visible = true
msgbox "after visible"
app.Documents.Open "
http://localhost/version2/wordstart.doc" msgbox "after open"
end sub
</SCRIPT>
<FORM NAME="inputform">
<INPUT TYPE="BUTTON" onclick="word_button()" value="Start Word">
</FORM>
</BODY>
</HTML>
Mvh
Jesper Naur