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.
Ludji ATHENES
