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
