Discussion :

[QuickSave]

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;

[Laurent Dardenne]

Pour modifier une URL

HyperLink.Address
Renvoie ou définit l'adresse (par exemple, un nom de fichier ou une URL) du lien hypertexte spécifié. Type de données String en lecture-écriture.

expression.Address
expression Obligatoire. Expression qui renvoie l’un des objets ci-dessus.

Voir les autres propriétes dans l'aide en ligne de VBAWord.

[QuickSave]

Merci Laurent,

le truc c'est que l'objet Hyperlink n'est pas implémenté de la même façon en delphi que dans VBA.

Je vais continuer à chercher.

[Laurent Dardenne]

le truc c'est que l'objet Hyperlink n'est pas implémenté de la même façon en delphi que dans VBA.

M'est avis que les 2 utilisent un objet COM :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
//issu de ..\Delphi\4.0\OCX\Servers\WordXP.pas
 
  Hyperlink = interface(IDispatch)
    ['{0002099D-0000-0000-C000-000000000046}']
...
    property SubAddressOld: WideString read Get_SubAddressOld;
    property ExtraInfoRequired: WordBool read Get_ExtraInfoRequired;
    property Address: WideString read Get_Address write Set_Address;
...
  end;