Discussion :

[dederfred]

Bonsoir,
J'ai un petit problème je me suis mis au contrôle d'application word.
Dans un premier temps mon application n'insert pas mon signet ...
Puis j'ai le droit à une belle erreur dont je vous mets le screen.
Le code est pris du forum a 99%.

Voila 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
24
25
 
procedure TForm1.test();
var
  vMSWord: variant;
  aFileName: AnsiString;
   Docu, asaveChange: OleVariant;
 
   vWDocument, vWDocuments, vBookMark, vBookMarks, vContent: Variant;
   Visualiser: integer;
begin
   Docu:='c:\Documents and Settings\freddy\Bureau\aplitest\word\termite.doc';
    vMSWord := CreateOleObject('Word.Application');
    vMSWord.Visible := true;
    vWDocuments := vMSWord.Documents;
    vWDocument := vWDocuments.Open(Docu);
    vMSWord.ConnectTo(vMSWord.ActiveDocument);
    vBookMarks:= vMSWord.Bookmarks;
    vBookMark:=vBookMarks.Item('immeubleAdresse');//Nom du signet
    vBookMark.Select;
    vContent:=vBookMark.Range;
    vContent.InsertAfter('deder');
    Docu:='c:\Documents and Settings\freddy\Bureau\aplitest\word\ter.doc';//ici tu change de nom pour ne par avoir ton originale modifier
   aSaveChange:= False;
   vMSWord.SaveAs(Docu);
end;

Merci d'avance

[dederfred]

quelqu'un est-t'il déja tombé sur cette errreur ?

[hy00ga]

Hummm.. j'ai jeté un coup d'oeil à la FAQ, mais j'y ai trouvé nulle part mention de :

vMSWord.ConnectTo(vMSWord.ActiveDocument);

Tu as sorti cette ligne d'òu exactement ?

[dederfred]

Pour tout te dire, j'ai pris cette ligne d'une réponse sur le forum.
Mais voila, j'ai été obliger de faire cela car en utilisant les FAQ l'application , puis le fichier s'ouvrai mais rien ne s'insérait après le signet ....
a vrai dire cela n'a rien changé mais j'ai d'abord cherché avant de poster

[dederfred]

la premiere fois j'ai du faire une erreure dans mon code, je donne encore la solution pour l'insertion meme si elle est dans les FAQ.
et merci encore :

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
 
Procedure TForm1.insertion_Text();
var
    cheminFichier : 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;
end;