Bonjour,
J'ai un document avec du texte situé entre accolage. Par exemple
Je souhaiterai récupérer la position (i.e la position du premier et du dernier charactères) pour chaque.{
Lorem ipsum dolor sit amet, consectetur adipiscing elit.
sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.
Ut enim ad minim veniam, quis nostrud exercitation
ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum
}
J'utilise le code suivant
Le problème se situe au niveau de la ligne en gras. Aucun lien n'est détecté alors qu'il en existe bel et bien.
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 ' Recherche de la position des charactères délimitant la zone à traiter For n = 1 To ThisDocument.Range.Characters.Count char_lu = ThisDocument.Range.Characters(n).Text If char_lu = "{" Then ind_debut_zone_a_traiter = True pos_debut_zone = n + 1 End If If char_lu = "}" Then ind_fin_zone_a_traiter = True pos_fin_zone = n End If Next ' On parcourt le document pour récupérer les adresses des hyperliens For Each url_text In ThisDocument.Range(pos_debut_zone , pos_fin_zone ).Hyperlinks Debug.Print url_text.Address Debug.Print url_text.TextToDisplay Debug.Print url_text.Range.Start Debug.Print url_text.Range.End dico_url.Item(url_text.Range.Start) = Array(url_text.Range.End, url_text.TextToDisplay, url_text.Address) Next
Des idées?
D'avance merci.
Partager