Ciao a tutti,
ho bisogno di usare lo script che ho trovato qui per convertire un file .doc in un file html
Mi da il seguente errore:
Impossibile aprire la memoria macro.
Ho trovato un post simile ma non c'era la soluzione.
Diceva solo che si deve avere word installato.

IO ho word installato e windows 2000 server.

Fiorella

Niente da fare: non funziona. mi apre sicuramente il documento word perchè in seguito il file word rimane aperto.

Questo è il codice che ho trovato e che sto usando:

<%

Function WordToHTML(strWordDoc, strHTMLDoc)

On Error Resume Next

'Istanziamo l'oggetto Word.Application, lo rendiamo invisibile e apriamo il file
Dim objWord
Set objWord = Server.CreateObject("Word.Application")
objWord.Visible = False
'path completo
objWord.Documents.Open(strWordDoc)

'Se ci sono errori ne visualizziamo la descrizione
If Err.Number <> 0 Then
WordToHTML = Err.Description

Else
'Impostiamo le proprietà della conversione
FileFormat=106
LockComments=True
Password=""
AddToRecentFiles=False
WritePassword=""
ReadOnlyRecommended=False
EmbedTrueTypeFonts=False
SaveNativePictureFormat=True
SaveFormsData=False
SaveAsAOCELetter=False

'Effettuiamo la conversione
objWord.ActiveDocument.SaveAs strHTMLDoc, FileFormat, LockComments, _
Password, AddToRecentFiles, WritePassword, ReadOnlyRecommended, _
EmbedTrueTypeFonts ,SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter

'Se ci sono errori ne visualizziamo la descrizione
If Err.Number <> 0 Then
Response.Write Err.Description & "<br>"
WordToHTML = Err.Description
Else
WordToHTML = "Conversione eseguita con successo"

'Chiudiamo l'oggetto e liberiamo la memoria
objWord.ActiveDocument.Close
objWord.Quit
Set objWord = Nothing

'Facciamo l'ultimo controllo degli errori
If Err.Number <> 0 Then
WordToHTML = Err.Description
Else
WordToHTML = "Conversione eseguita con successo"
End If
End If

End If

End Function


Conversione = WordToHTML(Server.MapPath("fiorella_cv.doc"), Server.MapPath("test.htm"))
Response.Write "<br><br>" & Conversione & "<br><br>"

%>




<b>ras78 ha scritto:</b>
<BLOCKQUOTE id=quote><font size=1 face="Arial" id=quote><hr height=1 noshade id=quote>
Le soluzioni sono due:
1) Una X dll corrotta di cui non ricordo il nome, da ricopiare dal CD di Office
2) La più attendibile: è un problema di permessi. Apri la console di IIS, sito predefinito, sfoglia tra le cartelle e trova il file che lancia lo script, tasto destro, PROPRIETA', PROTEZIONE FILE, MODIFICA (primo bottone in alto), ACCESSO ANONIMO -&gt; MODIFICA, SFOGLIA e cerca l' utente IUSR_nomemacchina, aggiungilo e metti la password con cui ti logghi sul pc (o quella di Admin). Stoppa IIS e fallo ripartire.

---[ www.digiscout.it ]---

<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Arial" size=2 id=quote>