DominoArea.org [Archive]

Bonjour,Est-il possible d'exporter le contenu d'un document dans un fichier Word?Mes docs comportent essentiellement des champs texte riche et stockent beaucoup d'images, est-ce une contrainte ?merci d'avance.JF

je sais le faire en excel, mais je ne connais pas du tout la syntaxe des macros world.Mais je suis sur que c possible de le faire en world.

il est possible d'exporter des textes riches vers Excel ?ça m'interesse...

Bonjour,J'ai trouvé pour du texte mais pas pour les graphiques.[%sig%]

Re,Voici le code pour le texte contenu dans un RTF, sur les essais que j'ai effectué il conserve la mise en page et les attributs du texte, mais je n'est pas grand chose dans mon champs de texte.Code à mettre dans un agent :Sub Initialize Dim Workspace As New NotesUIWorkspace Dim Session As New NotesSession Dim UIDoc As NotesUIDocument Dim appWord As Variant Dim WdDoc As Variant Dim CopieMemoire As Variant Dim Db As NotesDatabase Dim Doc As NotesDocument Dim Col As NotesDocumentCollection Set Db = Session.CurrentDatabase Set Col = Db.UnprocessedDocuments If Col.Count > 0 Then Set Doc = Col.GetFirstDocument Set appWord=CreateObject("Word.Application") While (Not doc Is Nothing) Call appWord.Documents.Add Set WdDoc = appWord.ActiveDocument Set UIDoc = Workspace.EditDocument(True,doc) Call UIDoc.GotoField("fld_Test") '<== Ne pas oublier de mettre le nom de votre champs Call UIDoc.SelectAll Call UIDoc.Copy Call UIDoc.Close Set CopieMemoire = WdDoc.StoryRanges(1) CopieMemoire.Paste appWord.Visible = True '<== Mettre à False pour que Word n'apparait pas appWord.ActiveDocument.SaveAs("C:\Word.doc") '<== Ne pas oublier de mettre votre chemin d'accès et le nom de votre fichier. appWord.ActiveDocument.Close Set Doc = Col.GetNextDocument(doc) Wend Else Messagebox "Vous devez au moins sélectionner un document",0+16,"Aucun document sélectionner !" Exit Sub End If appWord.Quit Set appWord = NothingEnd Sub'--Fin de codeUtilisation :Sélectionner un document dans votre vue et exécuter l'agent.[%sig%]

Re,Rien trouver sur les images, les conseils que j'ai vu, c'est d'enregistrer l'image sur disque, de retenir la postion, dans le champs RTF, ou elle se trouve et de l'insérer à la même place dans le document Word.Bonjour l'usine à gaz.[%sig%]

merci de ton investissement.