Discussion :

[Kingoo]

Bonsoir,

C'est tout simple, je cherche à utiliser la fonctionnalité d'insertion automatique de Word via Delphi pour ajouter automatiquement des éléments à un document avec un simple appel.

Voilà mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
      vMSWord := CreateOleObject('Word.Application');
      vMSWord.visible := true;
      vDocument:=vMSWord.Documents.open(vFile);
 
      if vDocument.BookMarks.Exists('obl1signet') then
      begin
        vBookMark := vDocument.BookMarks.Item('obl1signet');
        vBookMark.Select;   MSWord.ActiveDocument.AttachedTemplate.AutoTextEntries('oblique1').Insert(vMSWord.Selection.Range,RichText:=True);
        vSaveChanges := true;
        vDocument.Close(vSaveChanges);
        vMSWord.Quit;
        vMSWord := unassigned;
      end

Je n'arrive pas à adapter (malgré moults essais) la syntaxe Vba d'appel à AutoTextEntries et voilà le message que je reçois :

...classe d'exception EOLEException "AutoTextEntries" n'est pas une méthode.

Je précise que j'utilise des insertions automatiques associées au document word ouvert (d'où le AttachedTemplate) et non générales à word (normal.dot).
Oblique1 correspond à une insertion automatique que j'ai défini et associé à mon document au préalable.

Merci d'avance de vos réponses et j'espère avoir bien classé ce topic car c'est mon premier message ici.

[Kingoo]

Ayant progressé sur l'utilisation du VBA word via Ole dans delhi, je viens moi même fournir la réponse à ma question ainsi qu'un code qui, je pense, peut être utile.

Tout d'abord la méthode suivante (adapté du code Vba) fonctionne si votre document word possède bien un modèle (.dot) attaché au document.

Code :

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

1
2
MSWord.ActiveDocument.AttachedTemplate.AutoTextEntries('oblique1').Insert(vMSWord.Selection.Range,RichText:=True);
        vSaveChanges := true;

Attached template fait référence au modèle associé au document, oblique1 étant l'insertion automatique à insérer.

Dans mon cas celà ne fonctionne pas tout simplement parce que le modèle de mon document est le document lui même.... (je reprend le travail de quelqu'un d'autre et c'est un travail pas terrible... car il créé des .doc à partir de modèle .dot mais les sauvegarde sans spécifier que ces documents font référence à un modèle. (désolé si l'explication est fumeuse...).
Bref si vous utilisez un modèle bien attaché à votre document cette syntaxe fonctionnera. Dans mon cas AttachedTemplate ne fonctionne pas sous delphi alors qu'il fonctionne en VBA.........

Quoi qu'il en soit il m'a fallu trouvé une autre syntaxe et je la fourni ici car elle peut s'avérer pratiquer pour parcourir les éléments associés à un template.

Bref voilà un code pratique qui a le mérite de trouver le modèle à appliquer et mon insertion automatique.

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
24
25
26
27
vMSWord := CreateOleObject('Word.Application');
vDocument:=vMSWord.Documents.open(sWordDoc);
vNameFile := extractfilename(sWordDoc);
 
nbWordElm := vMSWord.Templates.Count;
for idx := 1 to nbWordElm do
begin
    if vMSWord.Templates.Item(idx).Name = vNameFile then
        idxTemplateFound := idx;
end; {ceci me permet de localiser le modèle attaché à mon document (qui  
       correspond dans mon cas au fichier lui même et non au normal .dot   
       mais vous pouvez spécifier le nom d'un autre modèle ici)}
 
//repère l'élément d'autotextentries correspondant à celui recherché
nbWordElm:=MSWord.Templates.Item(idxTemplateFound).AutoTextEntries.Count;
for idx := 1 to nbWordElm do
begin
    if vMSWord.Templates.Item(idxTemplateFound).AutoTextEntries.
    Item(idx).Name=vNameAutoInsertion then
        idxEntriesFound := idx;
end;                
vMSWord.Templates.Item(idxTemplateFound).AutoTextEntries.Item(idxEntriesFound).Insert(Where:=vMSWord.Selection.Range,RichText:=True); 
 
vSaveChanges := true;
vDocument.Close(vSaveChanges);
vMSWord.Quit;
vMSWord := unassigned;

Et voilà le travail, ça récupère le bon modèle et applique l'insertion automatique désirée....
(pardon au modo d'avoir oublié les balises codes, ce sera fait à présent )