26 messaggi dal 28 giugno 2001
ciao a tutti...che combinazione!Anche io in questi giorni stavo cercando un metodo per convertire on-the-fly docs in html.Bellissimo lo script...ed è proprio capitato a pennello!Complimenti. Io l' avevo fatto così:

<%@ Language=VBScript %>
<%
'*************************************
'recupero le variabili o assegno loro
'un valore
'*************************************
filename = Request("fileName")
TmpPath = "C:\inetpub\wwwroot\myfolder\" 'decidere o generare il path in cui copiare il doc come html

'*************************************
'setto l'oggetto Word.Application
'*************************************

Set App = createObject("Word.Application")

'*************************************
'setto l'oggetto doc da aprire
'*************************************

Set Doc = App.Documents.Open("C:\inetpub\wwwroot\upload\" & fileName)

fileName = split(fileName,".")

filenamez = fileName(0)

'****************************************
'utilizzo il metodo saveAs (come in word)
'****************************************
Doc.SaveAs TmpPath & filenamez & ".htm", HTMLFileFormat(App)
Set Doc = Nothing
App.Documents.Close wdDoNotSaveChanges
App.Quit


'*******************************************
'la funzione che converte il formato in html
'*******************************************

Private Function HTMLFileFormat(WordApp)

Dim obj

If FileFormat = 0 Then
If Cint(WordApp.Version) > 8 Then
'Word2000
FileFormat = 8 'wdFormatHTML
Else
'Word97
For Each obj In Word.FileConverters
If obj.ClassName = "HTML" Then
FileFormat = obj.SaveFormat
Exit For
End If
Next
End If
End If

HTMLFileFormat = FileFormat
End Function

%>

Mi sembra che funzioni...chissà se invece è una porcata?

cia'
Davide





Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.