Word et lien hypertexte

Question

Bonjour,





J'ai un petit soucis. c'est qu'avec mon programme vb je dois ouvrir un
document Word et lire la valeure de chaque lien hypertexte. J'ai
trouver comment ouvrir le document word, mais je sais pas comment lire
la valeure d'un lien hypertexte. J'ai trouver un bout, mais pas tout,
donc est-ce que quelqu'un pourrait m'aider???





Voici le code trouver dans la faq que j'ai adapt&#233; a mon programme.






Code:, 		----
Dim DocWord As Word.Document

Set DocWord = GetObject(chemin_rep & "\" & objet)

DocWord.Activate

lst_fichiers.Text = DocWord.Range.Hyperlinks.Count 'j'ai essay&#233; un truc du style

'MsgBox DocWord.Range.Text

DocWord.Close False

Set DocWord = Nothing










Merci d'avance

krfa1 · Answer

Personne ne peut m'aider svp.



J'ai trouver un petit d&#233;but de code, mais je n'arrive que a afficher le lien mais je n'arrive pas a le modifier.



Dim oWdApp As Word.Application

Dim oWdDoc As Word.Document

Dim oWdLnk As Word.Hyperlink



Set oWdApp = CreateObject("Word.Application")

Set oWdDoc = oWdApp.Documents.Open("C:	est.doc")



For Each oWdLnk In oWdDoc.Hyperlinks

    MsgBox oWdLnk.TextToDisplay & " : " & oWdLnk.Address

Next oWdLnk



oWdDoc.Close False

oWdApp.Quit



Set oWdLnk = Nothing

Set oWdDoc = Nothing

Set oWdApp = Nothing



Merci d'avance.

Word et lien hypertexte

1 réponse

Discussions similaires