Discussion :

[dederfred]

Quelqu'un a déjà eu cette erreur ?
"EOleError with message 'Method 'close' not supported by automation object."

L'action que je fais est juste un close de Word avec comme argument true .

ApplicationWord.close('true') ;
La seule action avant la fermeture est l'enregistrement sous un autre nom.

Merci de pour votre aide

[CharleLéo]

salut,

Donne nous ton code pour vérifier la façon dont tu ouvres ton OLE

A+

[dederfred]

Voila pour le code :

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
22
23
 
 
Procedure TForm1.insertion_Text();
var
    heminFichier, aFileName : AnsiString;
    ApplicationWord, monFichier, mesFichiers, mesSignets, placeSignet, monSignet : variant;
begin
    ApplicationWord := CreateOleObject('Word.Application');
    ApplicationWord.Visible := true;
    cheminFichier := 'C:\Documents and Settings\freddy\Bureau\aplitest\word\termite.doc';
    mesFichiers := ApplicationWord.Documents;
    monFichier := mesFichiers.Open(cheminFichier);
    mesSignets := monFichier.BookMarks;
      if mesSignets.Exists('immeubleAdresse') then begin //nom du signet immeubleAdresse
          monSignet := mesSignets.Item('immeubleAdresse');
          monSignet.Select;
          placeSignet := monSignet.Range;
          placeSignet.InsertAfter('83100 Toulon'); //le texte que j'insere après
      end;
aFileName := 'c:\SaveAs.doc';
monFichier.SaveAs(aFileName);
ApplicationWord.Close('True');
end;

[defluc]

Remplace
ApplicationWord.Close
par
ApplicationWord.Quit
ApplicationWord. := Unassigned;

[dederfred]

Je tiens à te remercier .
Mais avant de metre resolut au post pourrai tu m'expliquer pourquoi la solution des FAQ ne fonctionne pas, dans la logique on dirait pourtant que cela devrait fonctionner ?

[defluc]

J'utilise plutôt la méthode automation en créant la bibliothèque Word_Tlb à partir du fichier MSWORD8.olb (ou 9, 10, 11) fourni avec word suivant la version.
Et là, j'ai un contrôle sur ce que j'encode.
En effet, quand je tape le point après ApplicationWord, j'ai la listbox des instruction reconnues. c'est bien plus pratique et on y trouve "quit" mais pas "close".