ASP et Word Exporter une base Access dans un fichier Word

En lisant le script on pourra retenir les principes généraux :

Premier principe : avoir Word sur le serveur, mais ça, vous l'aviez sans doute deviné :-)) Si ce n'est pas le cas vous aurez une erreur sur la méthode CreateObject

Deuxième principe : pour pouvoir accéder à WORD en ASP, word doit avoir été utilisé sur le serveur par le compte utilisé lors de l'accès web. Dans word, il faut ouvrir l'éditeur VBA, puis refermer. Ca na l'air de rien, mais ça permet d'écrire un fichier par défaut, genre normal.dot, impossible à créer à distance. Si ce fichier est absent, vous aurez une erreur indiquant : "Impossible d'ouvrir la macro de stockage". Il peut être utilse de rebooter.

Création de l'objet Word Set WordApp = CreateObject("word.application")

Mise en mode invisible WordApp.Application.Visible = false

Création du document Set WordDoc = WordApp.Documents.Add()

Pour chaque paragraphe :

<% ' Ajout du paragraphe Set newpar = WordDoc.Paragraphs.Add set newrange = newpar.range ' Définition du style du paragraphe with newrange    .Bold = False    .Italic = false    .Font.Name = "Verdana"    .Font.size = "12"    .ParagraphFormat.Alignment = 1    ' ou utilisation d'un style interne : .Style = "Titre 1" end with ' Insertion du contenu du paragraphe newrange.insertBefore("Mon texte dans ce paragraphe" & vbcrlf) ' ou d'un saut de page : newrange.insertBreak %>

Enregistrement du document WordDoc.SaveAs server.mapPath("doc/temp.doc")

Déconnexion de Word WordDoc.Close : WordApp.Quit


Le script complet :

access2word.asp

<% ' Export Word pour Access - Script de Guillaume ' Connexion à la base de données. ' Pensez à remplacer db_path par votre chemin + fichier set db = Server.CreateObject("ADODB.Connection") db.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & db_path set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * from Table ", db, 1, 2 ' déclaration de deux futurs objets dim WordApp, WordDoc ' Création de l'objet application word Set WordApp = CreateObject("word.application") ' Pas la peine de démarrer Word sur le serveur, on n'y est pas !!! WordApp.Application.Visible = false ' Création du document Word Set WordDoc = WordApp.Documents.Add() ' Parcours du recordset. Pour chaque Item, création de plusieurs paragraphes contenant ' les informations de la base. ' Puis saut de page. ' Attention, là c'est du VBA Word, qui peut parfois être un peu étrange        ' Par exemple, l'opérateur := du VBA ne passe pas en ASP. Donc remplacer par  ' des parenthèses.  ' De même, les constantes VBA genre WdAlignCenter ne sont pas connues en ASP ' et retournent donc 0. Il faut donc utiliser leur valeur entière (0, 1, 2...) Do while not rs.EOF        Set Mypar1 = WordDoc.Paragraphs.Add    set MyRange1 = Mypar1.range    MyRange1.InsertBefore(rs.fields.item("Client").value & vbcrlf)           MyRange1.Style = "Titre 1"    MyRange1.ParagraphFormat.Alignment = 1           Set newpar = WordDoc.Paragraphs.Add    set newrange = newpar.range    with newrange       .Bold = False       .Italic = false       .Font.Name = "Verdana"       .Font.size = "12"    end with    newrange.insertBefore("Téléphone standard : " & rs.fields.item("tel_standard").value & vbcrlf)    newrange.insertBefore("Activité : " & rs.fields.item("activite").value & vbcrlf)    newrange.insertBefore(rs.fields.item("Commune").value & vbcrlf)    newrange.insertBefore(rs.fields.item("CP").value & vbcrlf)    newrange.insertBefore(rs.fields.item("Adresse3").value & vbcrlf)    newrange.insertBefore(rs.fields.item("Adresse2").value & vbcrlf)    newrange.insertBefore(rs.fields.item("Adresse1").value & vbcrlf)    Set Mypar2 = WordDoc.Paragraphs.Add    set MyRange2 = Mypar2.range    MyRange2.InsertBefore("Représentant : " & rs.fields.item("Prenom").value & " " & rs.fields.item("Nom").value)    MyRange2.Font.Bold = true    set Myparag2 = WordDoc.Paragraphs.add    set Myrang2 = Myparag2.range    with Myrang2       .Bold = False       .Italic = True       .Font.Name = "Verdana"       .Font.size = "10"    end With    myrang2.insertBefore("email : "& rs.fields.item("email").value & vbcrlf)    myrang2.insertBefore("Mobile : "& rs.fields.item("mobile").value & vbcrlf)    myrang2.insertBefore("Fax : "& rs.fields.item("fax").value & vbcrlf)    myRang2.insertBefore("Téléphone : "& rs.fields.item("tel").value & vbcrlf)    Set Mypar3 = WordDoc.Paragraphs.Add    set MyRange3 = Mypar3.range    MyRange3.InsertBefore("Date du contact : " & rs.fields.item("Date").value )    MyRange3.Font.Bold = False    Set Mypar4 = WordDoc.Paragraphs.Add    set MyRange4 = Mypar4.range    MyRange4.InsertBefore("Commentaire : " & rs.fields.item("commentaire").value )    MyRange4.Font.Bold = False    rs.movenext    if not rs.EOF then       ' Paragraphe de saut de page tant qu'il reste des enregistrements       Set Mypar5 = WordDoc.Paragraphs.Add       set MyRange5 = Mypar5.range       MyRange5.InsertBreak       Set Mypar5 = WordDoc.Paragraphs.Add       set MyRange5 = Mypar5.range    end if Loop               ' enregistrement du document au format word WordDoc.SaveAs server.mapPath("doc/temp.doc") ' fermeture du document WordDoc.Close ' et de Word WordApp.Quit ' et du recordSet rs.close ' et d'Access db.close Set WordDoc = Nothing Set WordApp = Nothing Set rs = Nothing Set db = Nothing ' redirection du navigateur vers le document pour le visualiser, l'imprimer et le sauvegarder en local. response.redirect "doc/temp.doc" %>

Merci Guillaume !

A lire aussi

1. Création d'un document Word sans Word sur le serveur
   
2. MSDN - Rich Text Format (RTF) Specification