Comment modifier un lien hypertexte dans Word

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:

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;

Pour modifier une URL

Citation:

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.

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.

Citation:

Envoyé par QuickSave

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:

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;
:P