IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Word Discussion :

Quelques soucis avec la définition d'un Range


Sujet :

VBA Word

  1. #1
    Membre habitué
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    278
    Détails du profil
    Informations personnelles :
    Âge : 40
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Juillet 2006
    Messages : 278
    Points : 132
    Points
    132
    Par défaut Quelques soucis avec la définition d'un Range
    Bonjour,

    J'ai un document avec du texte situé entre accolage. Par exemple
    {
    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 : 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
    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.

  2. #2
    Invité
    Invité(e)
    Par défaut
    Citation Envoyé par ted the Ors Voir le message
    Bonjour,

    A tester :
    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
    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

Discussions similaires

  1. Quelques soucis avec Curve Fitting ?
    Par hsazerty dans le forum MATLAB
    Réponses: 0
    Dernier message: 27/03/2008, 18h28
  2. Réponses: 7
    Dernier message: 24/03/2007, 17h47
  3. quelques soucis avec l'url rewriting
    Par romain_paris dans le forum Apache
    Réponses: 10
    Dernier message: 17/09/2006, 17h51
  4. Quelques soucis avec un lecteur MP3
    Par Guesh13 dans le forum Audio
    Réponses: 3
    Dernier message: 20/02/2006, 15h57
  5. quelques soucis avec word 2000
    Par ramchou dans le forum Word
    Réponses: 3
    Dernier message: 06/09/2004, 19h13

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo