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