OVH Cloud OVH Cloud

Wb et liens hypertexte

2 réponses
Avatar
krfa1
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é 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é un truc
du style
'MsgBox DocWord.Range.Text
DocWord.Close False
Set DocWord = Nothing




Merci d'avance

2 réponses

Avatar
Patrice Henrio
Pour ma part j'utilise plutôt un web browser et les propriétés du document.
je ne sais pas faire avec Word et je ne suis pas sûr que ce soit l'outil le
plus adapté


"krfa1" a écrit dans le message de news:

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é 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é un truc
du style
'MsgBox DocWord.Range.Text
DocWord.Close False
Set DocWord = Nothing




Merci d'avance


Avatar
Fred
Dans son message
krfa1 nous dit :

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???



Bonsoir,
Ceci peut-être ?
8<--------------
MsgBox ActiveDocument.Hyperlinks(1).Address
MsgBox ActiveDocument.Hyperlinks(1).Range.Text
8<-------------
Cela affiche successivement l'adresse et le texte affiché du premier
lien du document.

--
Fred