5 messages in org.openoffice.fr.prog[prog] Publipostage et Open Office.org
FromSent OnAttachments
Ludji ATHENESJul 22, 2005 4:30 am 
MABILLE Bruno SZSIC57-IMLJul 22, 2005 4:33 am 
Laurent GodardJul 22, 2005 4:54 am 
Ludji ATHENESJul 22, 2005 5:06 am 
Thomas CoqueryJul 22, 2005 6:17 am 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:[prog] Publipostage et Open Office.orgActions...
From:Ludji ATHENES (l.at@tele2.fr)
Date:Jul 22, 2005 4:30:41 am
List:org.openoffice.fr.prog

Bonjour,

Je suis nouveau sur open office.org et je m'interrese plutôt à la partie OLE/COM
de l'API. Je voudrais piloter OOo via une application écrite en VB6 comme je le
fais actuellement avec M$Office Word. Je vous avoue qu'après avoir lu le SDK de
l'API de OOo j'ai pris quelques cachets d'aspirine pour le mal de crâne mais bon
ça va mieux. Dans tout ce que j'ai pu lire dans les forums et dans l'API, la
partie publipostage est un peu pauvre. Malheureusement c'est ce qui m'interrese
le plus.

J'aimerais pouvoir faire comme avec word generer un document (publiposter)
automatiquement sans que l'utilisateur n'ai à intervenir sur OOo. en vb6 le code pour MsWord est à peu près come cela Sub RealiseFusion() Dim Wobj as Object, Source as string Dim Dest as string, LetType as string

Dest = "C:\TEMP\Mailing.doc" LetType="C:\TEMP\Maquette.doc" Source="C:\TEMP\Source.doc" 'fichier de données au format CSV

set Wobj=CreateObject("Word.Application") Wobj.document.open Filename:=LetType, Format:=0 'ouvre le fichier Lettre
type contenant les champs de fusion Wobj.ActiveDocument.Mailmerge.MainDocumenType = 0 ' indique à Word qu'on
veut faire des lettres Wobj.ActiveDocument.MailMerge.OpenDataSource Name:=Source ' Attache la base
de données au document Wobj.ActiveDocument.Mailmerge.Destination = 0 ' Résultat du publipostage
vers un nouveau document Wobj.ActiveDocument.Mailmerge.Execute 'Réalise la fusion

Wobj.ActiveDocment.Save Filename := Dest End Sub

Ma question : Comment faire la même chose avec OOo (v 1.1.4 ou V2) et VB6 ?

Merci par avance de vos réponses.