1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
|
<script language=VBScript>
<!--
function load_word(mode, pfad)
'mode 0 = normal open
'mode 1 = open as dot
Set appWord = CreateObject("Word.Application")
' Display the application.
appWord.Visible = TRUE
'Open the document.
'mode 1 = dot file 0 = docfile
if mode = 1 then appWord.Documents.Add (pfad) end if
if mode = 0 then appWord.Documents.Open (pfad) end if
' Close the object variable.
Set appWord = Nothing
end function
function load_excel(pfad)
Set appExcel = CreateObject("Excel.Application")
' Display the application.
appExcel.Visible = TRUE
'Open the document.
appExcel.Workbooks.Open (pfad)
' Close the object variable.
Set appExcel = Nothing
end function
function load_powerpoint (pfad)
Set appPowerpoint = CreateObject("Powerpoint.Application")
' Display the application.
appPowerpoint.Visible = TRUE
'Open the document.
appPowerpoint.presentations.Open (pfad)
' Close the object variable.
Set appPowerpoint = Nothing
end function
-->
</script>
<input type=image onClick="load_word '0', 'http://sites.univ-provence.fr/riup/images/stories/PDF/contrat_etudes.doc' " src="http://ci-muenster.de/__we_thumbs__/1650_2_cd4.jpg"></input> |
Partager