importer des donnees dans word

**neuneu1** · 11/05/2007, 19h41

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

**Flode** · 11/05/2007, 20h21

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

**neuneu1** · 11/05/2007, 20h28

je vais essaye mais c 'est pas gagne.

Il existe pas une methode avec les signets word aussi

merci pour l explication

**Flode** · 12/05/2007, 07h55

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

Sans aucun doute améliorable...

**neuneu1** · 12/05/2007, 12h49

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

**Flode** · 12/05/2007, 14h04

Trop cool, j'ai pris 2 pointures

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é.

**neuneu1** · 12/05/2007, 20h47

Merci mais un peu complexe

j'ai trouve ca sur delphi le site.

mais plantage variant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Flode** · 13/05/2007, 00h22

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;

**neuneu1** · 13/05/2007, 01h09

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