manuhard Le bois ne rend pas les coups | Au moment où je sauve le document(Application.ActiveDocument.SaveAs), le programme passe dans le bloc exception.
J'ai localisé quels étaient les champs qui me posent problème, mais c'est étrange.
Il s'agit de 3 champs, s'insérant dans un tableau dynamique :
Si je supprime un de ces 3 champs, le programme se déroule correctement.
Si je mets les 3 champs en dehors du tableau, le programme passe dans le bloc exception également.
Si je mets dans le document word 3 fois le même champ, le programme passe aussi dans le bloc exception.
Quelle peut être la raison ?
Voici mon code :
Code :
- try
- WordApp := CreateOleObject('Word.Application');
- WordApp.Documents.Open(sValeur+'\mondocument.doc');
- WordApp.Application.Visible := False;
- WordApp.Application.ActiveDocument.MailMerge.Destination := wdFormLetters;
- WordApp.Application.ActiveDocument.MailMerge.Execute;
- WordApp.Application.ActiveDocument.SaveAs(sValeur+'\'+sValeurChampDocuLibelle+'.doc');
- SaveChanges := wdDoNotSaveChanges;
- MessageDlg('Le document a été généré sur ' +sValeur+'\'+sValeurChampDocuLibelle+'.doc', mtInformation, [mbOK], 0);
- except
- on E: Exception do begin
- MessageDlg('Un problème relatif à Word a été rencontré.', mtWarning, [mbOK], 0);
- end;
- end;
|
Message édité par manuhard le 20-01-2004 à 17:50:28
|
