Manipuler OpenOffice.org avec DelphiRésolu

Question

Cela fait maintenant une semaine que je gal&#232;re pour r&#233;aliser un publipostage avec openoffice (en le pilotant avec delphi).

Est ce que quelqu'un aurait d&#233;j&#224; r&#233;alis&#233; cette op&#233;ration.?..

Actuellement je peux faire une fusion (mailmerge) mais j'ai un probl&#232;me avec le datasource
Ca commence &#224; devenir d&#233;sesp&#233;rant...
Dyvim

dyvim · Accepted Answer

Merci pour le lien...
Mais j'avais d&#233;j&#224; trouv&#233; tout ce qu'il me fallait justement sur le site 
fr.openoffice.org
On peut y trouver une s&#233;rie de HowTo tr&#232;s interessante et surtout une liste de diffusion consacr&#233;e &#224; la programmation sous OpenOffice ou &#224; la manipulation de OOo par son API...
Autres choses interessantes le SDK ou la derni&#232;re version de OOo qui y sont t&#233;l&#233;chargeable...
Il existe aussi un site en langue anglaise sur ces th&#232;mes www.openoffice.org
Sinon je recommandes aussi le livre de B. Marcelly et L. Godard Programmez OpenOffice.org.
Bon courae &#224; tous ceux qui se lanceraient dans la programmation de l'API...

Dyvim

jmp77 · Answer

Hello,



Je ne sais pas si ca repondra exactement a ta demande mais voici un lien :

http://www.phidels.com/php/index.php3?page=../php/pagetelechargementzip.php3&id=568

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

dyvim · Answer

Et bien cette source est relativement interessante pour quelqu'un qui
ne saurais pas du tout manipuler office, mais ce que fait le code que
tu m'a fil&#233;, je savais d&#233;j&#224; le faire (regardez la FAQ Delphi de
d&#233;veloppez.com partie open office, toutes les bases (ouvrir un
document, le fermer, l'imprimer,...) y sont ).

Non ma demande est un peu plus pointue et concerne le PUBLIPOSTAGE et la crt&#233;ation de DATASOURCE...

Merci quand m&#234;me et sinon ce site &#224; l'air tr&#232;s int&#233;ressant.

Dyvim

cs_mathieu49 · Answer

Tu trouveras peut etre des info dans ce zip

il contient des sources et une doc

http://fr.openoffice.org/Documentation/How-to/programmation/Delphi_OOo_v10fr.zip

bodruith · Answer

Salut &#224; tous,



Je cherche moi aussi &#224; faire du publipostage avec OpenOffice depuis
Delphi. J'ai d&#233;j&#224; fait la m&#234;me chose avec Word mais apparemment cela ne
fonctionne pas de la m&#234;me fa&#231;on. J'aurais donc voulu savoir si
quelqu'un avait d&#233;j&#224; r&#233;ussi &#224; faire ceci ?

J'arrive &#224; ouvrir mon document avec OpenOffice mais je n'arrive pas &#224; remplir les signets.

Merci d'avance.

@+

dyvim · Answer

As tu &#233;t&#233; voir les deux sites : http://fr.openoffice.org/ et http://www.openoffice.org/
Tu as des forums / mailing list qui poss&#232;dent la reponse &#224; ta question.

Essaye cette page l&#224; sinon http://www.mail-archive.com/cgi-bin/htsearch?restrict=;exclude=;config=prog_fr_openoffice_org;method=and;format=short;words=publipostage;page=3http://www.mail-archive.com/prog@fr.openoffice.org/msg00434.html
Si tu regardes les diff&#233;rents threads tu devrais avoir la r&#233;ponse &#224; ta question..
Tu peux essayer de chercher thomas coquery

Si tu le sens bien en anglais va voir l&#224; aussi 
http://www.oooforum.org/forum/search.phtml?mode=results
recherche mailmerge...
sur le forum anglais cherche auteur = dyvim

Si tu ne trouves vraiment pas alors je verrais pour mettre mes sources en ligne

Dyvim

bodruith · Answer

Merci pour ces liens. En fait ce que je voudrais c'est utiliser des
rep&#232;res de texte comme &#231;a j'ai juste &#224; me d&#233;placer jusqu'au rep&#232;re o&#249;
je veux ins&#233;rer mon texte. C'est un peu comme des bookmark je pense. Ca
ressemble aux signets de Word en fait. Le probl&#232;me c'est que je ne sais
pas comment r&#233;cup&#233;rer ces rep&#232;res de texte avec Delphi. D'ailles est-ce
que ces rep&#232;res correspondent bien &#224; des TextCursor ?



@+

dyvim · Answer

Je ne comprends pas bien ce que tu veux faire. Il ne s'agit pas d'un publipostage en fait? Essaie de me dire exactement ce que tu veux obtenir....
Sinon je ne penses pas que les textCursor soient ce que tu cherches.
Si tu cherches des champs que tu pourrais remplir avec des donn&#233;es, il s'agit de TextField.

Je te conseille fortement le bouquin de B. Marcelly et L. Godard Programmez OpenOffice.org.
si tu dois developper longtemps avec OOo.
Sinon il te faudra le SDK et pas mal de patience pour t'y retrouver dans l'API.(et surtout l'outil XRay de L. Godard qui permet de voir les attributs et m&#233;thodes des objets de l'API voir site fr.openofffice.org)

Dyvim

jfpetit · Answer

Bonjour,
Moi aussi j'ai le même problème : mettre du texte sur des signets dans un document OppenOffice avec un programme Delphi.
Avez-vous résolu ce problème? Si oui je suis preneur.
Merci

jfpetit · Answer

Bonjour,
Je viens de trouver la réponse. Voici l'adresse :
http://www.oooforum.org/forum/viewtopic.phtml?t=39444&highlight=delphi+openoffice
A+

jfpetit · Answer

Bonjour,
Je viens de trouver la réponse. Voici l'adresse :
http://www.oooforum.org/forum/viewtopic.phtml?t=39444&highlight=delphi+openoffice
A+

phaysane3 · Answer

Bonjour,
Je souhaite faire la même chose que vous, 
du publipostage avec open office et Delphi

Merci d'avance pour votre aide

Nicolas

jfpetit · Answer

Bonjour Nicolas,

Je n'ai pas fait de publipostage avec OpenOffice et Delphi. Je n'ai fait que produire des documents .doc à partir de modèles .dot en les modifiant avec Delphi.
Si cela peut vous aider!

JFPETIT

beckerich · Answer

salut à tous,

pour insérer du texte sur un signet d'un document openoffice swriter, un exemple de code en gras :

function NouveauMenuDuJour(d_datdeb, d_datfin: TDateTime): Variant;
var
  oo, doc, txt, bmk: Variant;
  s_template: string;
  d1,d2,m1,m2,y1,y2: word;
  d_prx: double;
begin
  Result := Unassigned;
  d_prx  := 0;

  CreeInstanceDeOO(oo, True);
  try
    with GO_DIC do
    begin
      cle := 'admin';
      code := 'repges';
      if Lire then
        s_template := Element[1] + Element[2];
    end;

    with GO_DIC do
    begin
      cle := 'admin';
      code := 'modèles';
      if Lire then
        s_template := s_template + Element[1];
    end;

    with GO_DIC do
    begin
      cle := 'admin';
      code := 'mod_mnujou';
      if Lire then
        s_template := s_template + Element[1];
    end;

    with GO_DIC do
    begin
      cle := 'admin';
      code := 'prx_mnudim';
      if Lire then
        d_prx := Valeur;
    end;

//    s_template := 'c:\millen_menu_du_jour.ott';
    CreerNouveauDocOO(doc, oo, CS_EDITEUR, s_template);

    { insertion des textes }
    txt := doc.Text;
    bmk := doc.Bookmarks.getByName('datmenjou').Anchor;
    DecodeDate(d_datdeb, y1,m1,d1);
    DecodeDate(d_datfin, y2,m2,d2);
    bmk.setString(Format('Menu du jour pour la semaine du %s au %s', [FormatDateTime('dd.mm', d_datdeb), FormatDateTime('dd.mm.yyyy', d_datfin)]));

    bmk := doc.Bookmarks.getByName('mercredi').Anchor;
    bmk.setString(FormatDateTime('dddd dd', d_datdeb));

    bmk := doc.Bookmarks.getByName('jeudi').Anchor;
    bmk.setString(FormatDateTime('dddd dd', d_datdeb+1));

    bmk := doc.Bookmarks.getByName('vendredi').Anchor;
    bmk.setString(FormatDateTime('dddd dd', d_datdeb+2));

    bmk := doc.Bookmarks.getByName('lundi').Anchor;
    bmk.setString(FormatDateTime('dddd dd', d_datfin));

    bmk := doc.Bookmarks.getByName('datmendim').Anchor;
    bmk.setString(Format('Menu du %s à %.2f € (servi uniquement le midi)', [FormatDateTime('dddd dd mmmm', d_datfin-1), d_prx]));

    Result := doc;
  finally
    DeconnecteDeOO(oo);
  end;
end;

Pierrezx · Answer

Moi ça plante sur le ".Anchor" : 

bmk := doc.Bookmarks.getByName('datmenjou').Anchor; 

Erreur : "End of content node doesn't have the proper start code".

Même erreur avec un .getStart comme ici dans la 2ème ligne : 

wCursor := wText.createTextCursorByRange(wViewCursor);
wText.insertTextContent(wCursor.getStart, fShape, false);

Quelqu'un aurait une idée ?

Manipuler OpenOffice.org avec Delphi

15 réponses

Votre réponse

Discussions similaires