[ASP]Modifier un fichier Word

Modifier un fichier Word [ASP] - ASP - Programmation

Marsh Posté le 17-01-2003 à 10:30:47    

Bonjour à tous.
Voila je cherche à modifier un fichier Word, typiquement, un modèle ou on rajoute des données provennant d'une base de données.
Pour diverses raisons, je ne peut pas utiliser le publipostage, la principal étant de pouvoir générer un fichier en allant chercher une liste de contact dans une base, et par exemple afficher tout les destinataires en copie sur une seule page, le publipostage ne permet pas ce genre de chose.
Bref, mon idée était de créer un .dot, avec dedans des mots clés, et ensuite, toujours en asp, executer un rechercher/remplacer qui remplacerait mes mots clés par les données de ma base.
Le problèmes, c'est que j'arrive bien à mettre en place toute la recherche, mais j'arrive pas à l'executer :/
Donc si vous savez comment faire, je prends, si vous avez une autre idée, pour contourner le problème, je prends aussi :D
Pour info voila ce que j'ai fait :
 
 

Code :
  1. <%
  2. set rs = Server.CreateObject("ADODB.Recordset" )
  3. rs.Open "SELECT * from Users ", "DSN=Intranet;", 1, 2
  5. 'Déclaration de l'objet Word
  6. Set WordObject = CreateObject("Word.Application" )
  7. WordObject.Application.Visible = False
  9. 'Ouverture du document de fusion et lancement de la commande de fusion
  10. Set WordDoc = WordObject.Documents.Open(Server.MapPath("modele.dot" ))
  12. WordObject.Selection.ClearFormatting
  13. WordObject.Selection.Find.ClearFormatting
  15. 'Code VBA provennant de Word
  16. 'Selection.HomeKey Unit:=wdStory
  18. Set Truc = WordObject.Selection
  19. With Truc
  20. Unit = wdStory
  21. End With
  23. Set Mypar2 = WordDoc.Paragraphs.Add
  24. Set MyRange2 = Mypar2.range
  25. MyRange2.InsertBefore("Texte" )
  27. Set LaSelection = WordObject.Selection.Find
  28. With LaSelection
  29. .Text = "Ligne 1"
  30. .Replacement.Text = "Bonjour, ceci est du texte !"
  31. .Forward = True
  32. .Wrap = wdFindContinue
  33. .Format = False
  34. .MatchCase = False
  35. .MatchWholeWord = False
  36. .MatchKashida = False
  37. .MatchDiacritics = False
  38. .MatchAlefHamza = False
  39. .MatchControl = False
  40. .MatchWildcards = False
  41. .MatchSoundsLike = False
  42. .MatchAllWordForms = False
  43. End With
  45. C'est la que ca merde ->
  46. Set machin = WordObject.Selection.Find.Execute
  47. With machin
  48. Replace = wdReplaceAll
  49. End With
  51. 'Code VBA provennant de Word
  52. 'WordObject.Selection.Find.Execute Replace:=wdReplaceAll
  54. 'Sauvegarde du document fusionné
  55. WordObject.ActiveDocument.SaveAs Server.MapPath("fichier.doc" )
  57. 'Fermeture des différents documents, de Word et libération de la variable
  58. WordObject.ActiveDocument.Close
  59. WordObject.Application.Quit
  60. Set WordObject = Nothing
  61. %>


Voila c'est le execute que j'arrive pas à faire :/
Merci à ceux qui ont une idée (et aux autres aussi :D)


---------------
"Ne jamais faire confiance à un truc qui peut saigner 4-5 jours par mois sans crever !"
Reply

Marsh Posté le 17-01-2003 à 10:30:47   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed