Bonjour,

Je cherche sur le net depuis ce matin pour trouver une solution et je n'en trouve pas. Malgré une FAQ bien remplie, celle-ci ne répond pas exactement à ce que j'ai besoin.

J'ai essayé avec les variants puis avec les composants Serveurs de Delphi 7 et que nenni.

Y aurait-il une âme bienveillante pour m'aider ?

Voici le code qui se rapproche le plus que j'ai trouvé dans la FAQ :

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
 
begin
 
    WordApplication1.Connect;
 
    Param2:='c:\toto.doc';
 
    WordApplication1.Visible:=True;
 
    NomFichier:='c:\tuto.doc';
 
    DocWord:=WordApplication1.Documents.Open(NomFichier,EmptyParam,
                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
 
    Param1:=DocWord.Paragraphs.Item(1).Range;
 
    DocWord.Hyperlinks.Add(Param1,Param2, EmptyParam ,EmptyParam,EmptyParam,EmptyParam);
 
    //MonPar.Range.InsertParagraphAfter;
 
end;