transfert vers word ?

**delphino7** · 27/04/2010, 10h53

bonjour

j'ai écrit un programme pour transféré un enregistrement vers un document word il m'affiche le message suivant :

le projet drh.exe a provoqué une class d'exeption EvariantInvalidOpError avec le message 'Operation de variant Incorrect ' processus stopper.Utiliser pas a pas ou exécuter pour continuer

et quand j'execute pas a pas avec la touche F7 il m'affiche un autre message

Operation de variant incorrecte

voila le source :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.Button9Click(Sender: TObject);
var vWDocuments,vMSWord,vWDocument,vBookMarks,vBookMark,vContent: variant;
begin
 
vWDocuments:=vMSWord.documents;
vWDocument:=vWDocuments.add('D:\table\template\Nom.doc');
table_employ.Active := true;
table_employ.First;
vBookMarks:=vWDocument.BookMarks;
if vBookMarks.exists('nom_emlpoy') then
begin
vBookMark:=vBookMarks.Item('nom_employ');
vBookMark.select;
vContent:=vBookMark.range;
vContent.insertAfter(table_employ.fieldbyname('nom_employ').Asstring);
 
end;
 
vMSWord:=unassigned;
 
end;

quelqu'un peu m'aider ?

merci

**Andnotor** · 27/04/2010, 12h53

Code :

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

vMSWord := CreateOleObject('Word.Application');

Ou quelque chose d'approchant

.

**delphino7** · 27/04/2010, 14h04

j'ai ajouter cette ligne le message d'erreur ne s'affiche pas en dirai que le transfert s'effectue mais le document word ne s'ouvre pas rien n'apparais ?!!!!

es qu'il y a un changement dans mon programme pour afficher le document aprés le transfert ?

merci