ASP + HTML + WORD
Résolu/Fermé
adns
Messages postés
1094
Date d'inscription
vendredi 23 février 2007
Statut
Membre
Dernière intervention
27 mars 2012
-
21 déc. 2009 à 12:07
adns Messages postés 1094 Date d'inscription vendredi 23 février 2007 Statut Membre Dernière intervention 27 mars 2012 - 5 janv. 2010 à 16:07
adns Messages postés 1094 Date d'inscription vendredi 23 février 2007 Statut Membre Dernière intervention 27 mars 2012 - 5 janv. 2010 à 16:07
A voir également:
- ASP + HTML + WORD
- Supprimer une page word - Guide
- Espace insécable word - Guide
- Organigramme word - Guide
- Word gratuit - Guide
- Signature électronique word - Guide
2 réponses
adns
Messages postés
1094
Date d'inscription
vendredi 23 février 2007
Statut
Membre
Dernière intervention
27 mars 2012
153
4 janv. 2010 à 10:39
4 janv. 2010 à 10:39
Up !
adns
Messages postés
1094
Date d'inscription
vendredi 23 février 2007
Statut
Membre
Dernière intervention
27 mars 2012
153
5 janv. 2010 à 16:07
5 janv. 2010 à 16:07
Solution Trouvé !!!
Pour ce que cela intéresse ;)
Le principe est de créer un document .htm contenant le html a inséré et ensuite d'insérer le fichier dans Word ;)
La procédure
Fonction permettant de créer le fichier dans un répertoire et d'y ajouter les balises html
Création du fichier Word et ajout du modèle
création du fichier, positionnement, et insertion
conversion en PDF et sauvegarde
Voila en espérant que cela aide quelqu'un ;)
Adns
Pour ce que cela intéresse ;)
Le principe est de créer un document .htm contenant le html a inséré et ensuite d'insérer le fichier dans Word ;)
La procédure
Fonction permettant de créer le fichier dans un répertoire et d'y ajouter les balises html
function RepSystemEuro ()
RepSystemEuro = Request.ServerVariables(4)
if right(RepSystemEuro,1) = "\" then
RepSystemEuro = mid(RepSystemEuro,1,len(RepSystemEuro)-1)
end if
end function
function createFile(text)
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(RepSystemEuro() & "\HTMTemp\plop.htm", True)
a.Write("<html><head></head><body>"&text&"</body></html>")
a.Close
createFile = RepSystemEuro() & "\HTMTemp\"&Session("mat")&".htm"
end function
Création du fichier Word et ajout du modèle
NomModeleWord = "test.dot"
Set objword = CreateObject("Word.Application")
ModeleWord = RepSystemEuro() + "\Modele\" + NomModeleWord
Set doc = objword.Documents.Add(ModeleWord)
création du fichier, positionnement, et insertion
tmpfile = createFile("<b><i>plopplop</i></b>")
Call objword.Selection.GoTo(-1, , , "monSignet")
Call objword.Selection.InsertFile(tmpfile, "", False, False, False)
conversion en PDF et sauvegarde
FichierPS = "plop.ps"
FichierPSC = RepSystemEuro() & "\PDF\" & FichierPS
FichierPDF = "plop.PDF"
FichierPDFC = RepSystemEuro() & "\PDF\" & FichierPDF
Call doc.PrintOut(False, False, ,FichierPSC, , , , , , , True)
Dim acr
Set acr = CreateObject("PdfDistiller.PdfDistiller.1")
acr.bShowWindow = False
acr.FileToPDF FichierPSC, FichierPDFC, "print"
Set acr = Nothing
doc.Close false
objword.Quit
Voila en espérant que cela aide quelqu'un ;)
Adns
