Quelques soucis avec la définition d'un Range

Bonjour,

J'ai un document avec du texte situé entre accolage. Par exemple

Citation:

---

{
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

}

---

Je souhaiterai récupérer la position (i.e la position du premier et du dernier charactères) pour chaque.

J'utilise le code suivant

Code:

---

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

---

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.

Des idées?

D'avance merci.

Citation:

---

Envoyé par ted the Ors

---

Bonjour,

A tester :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

Sub TesterLesLiens()   Dim I As Integer Dim N As Long, pos_debut_zone As Long, pos_fin_zone As Long Dim MonRange As Range   With ActiveDocument pos_debut_zone = 0 pos_fin_zone = 0   For N = 1 To .Range.Characters.Count Select Case .Range.Characters(N).Text Case "{" pos_debut_zone = N + 1 Case "}" pos_fin_zone = N End Select Next N   Set MonRange = .Range MonRange.SetRange Start:=MonRange.Characters(pos_debut_zone).Start, End:=MonRange.Characters(pos_fin_zone).End With MonRange If .Hyperlinks.Count > 0 Then For I = 1 To .Hyperlinks.Count With .Hyperlinks(I) Debug.Print I Debug.Print .Address Debug.Print .TextToDisplay Debug.Print .Range.Start Debug.Print .Range.End End With Next I End If End With   Set MonRange = Nothing   End With   End Sub

---