importer des donnees dans word

bonjour,

je cherche comment (si c'est possible)inserer les resutat d une requete ,d un edit dans word a un emplacement defi sur un document type

exemple

edit1.text := olivier
edit2.text:= dupond.

dans le document word preformater

reinsegnemnt

nom :dupond prenom: olivier

adresse:



ca c'est pour un document unique

et pouvoir le faire si c'est par exemple un ensemble de donnees.en creant a chaque fois un un nouveau document word pas un publipostage car le document est toujours le meme ce qui oblige a imprime le doument 1 a 1 jusqua la fin des donnees.

merci

Bonjour,

Le principe est :
- de créer un fichier word "modèle" avec des mots clés
- dans ton programme, d'ouvrir le fichier en question
- de remplacer les mots clés par les valeurs qui t'intéresse
- d'enregistrer ou imprimer le fichier

ex dans le fichier modèle :
Nom : #NOM# Prénom : #PRENOM#

la commande pour remplacer ces codes est :
MaZone := DocWord[NumInstance].Range(0,0);
MaZone.Find.Execute(SRech, True, True, False, False, False, True, wdFindContinue, Emptyparam, SRemp, wdReplaceAll);

avec comme principaux paramètre :
SRech : OLEVariant => Chaine recherchée
SRemp : OLEVariant => Chaine remplacée

:king: je vais essaye mais c 'est pas gagne.

Il existe pas une methode avec les signets word aussi

merci pour l explication

Ci-joint une petite bibliothèque construite à partir des infos recueillies sur les forum-faq...

Sans aucun doute améliorable...;)

merci
comme je l'ai dit plus haut je vais essayer mais j'ai pas votre niveau:roll:

Trop cool, j'ai pris 2 pointures :oops:

Blagues à part, comme j'ai une petite tête et que je me suis dit que j'en aurais peut-être encore besoin dans quelques mois, j'ai mis au début du fichier les explications et exemples pour utiliser les fonctions de cette unité.

Merci mais un peu complexe

j'ai trouve ca sur delphi le site.

mais plantage variant

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.Button4Click(Sender: TObject); var vBookMark, vContent : olevariant; begin vContent := vBookMark.Range; vContent.InsertAfter('texte à insérer');   end;

---

Erreur operation variant incorrecte

j y vais petit a petit pour comprendre

la j'ai ouvert un document word.

mainteant j essaye d inserer un texte

ainsi de suite

merci

J'ai fait la même chose que toi en enrichissant au fur et à mesure...

Ci-dessous le minimum qui fonctionne (une compli du 7.1 et 7.2):

procedure TForm1.Button1Click(Sender: TObject);
var
vBookMark, vbookmarks, vContent : olevariant;
WordAppli, DocWord : variant;
begin
WordAppli := CreateOleObject('Word.Application');
WordAppli.Visible := true;
DocWord := WordAppli.Documents.Open('C:\test.doc');
vBookMarks := DocWord.BookMarks;
if vBookMarks.Exists('test') then
begin
vBookMark := vBookMarks.Item('test');
vBookMark.Select;
vContent := vBookMark.Range;
vContent.InsertAfter('texte à insérer');
end;
end;

Citation:

---

Envoyé par Flode

J'ai fait la même chose que toi en enrichissant au fur et à mesure...

Ci-dessous le minimum qui fonctionne (une compli du 7.1 et 7.2):

procedure TForm1.Button1Click(Sender: TObject);
var
vBookMark, vbookmarks, vContent : olevariant;
WordAppli, DocWord : variant;
begin
WordAppli := CreateOleObject('Word.Application');//ca plante la a createoleobjet
WordAppli.Visible := true;
DocWord := WordAppli.Documents.Open('C:\test.doc');
vBookMarks := DocWord.BookMarks;
if vBookMarks.Exists('test') then
begin
vBookMark := vBookMarks.Item('test');
vBookMark.Select;
vContent := vBookMark.Range;
vContent.InsertAfter('texte à insérer');
end;
end;

---

j'ai mis ou ca plante le code

create object met met l erreur indentificateur non declarer

bon j ai trouve un code qui tourne je le depieute pour comprendre mon erreur

merci

manquait comobj:roll: :yaisse2:

merci ca marche

il y tellement de methode

merci