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 :

Fonction de recherche dans VBA


Sujet :

VBA Word

  1. #1
    Nouveau membre du Club
    Fonction de recherche dans VBA
    Bonjour,

    J'essaie de rechercher et remplacer une chaîne dans le code VBA de Word 2000 mais cette fonction semble moins évoluée que celle dans les documents docs.

    Je veux rechercher toutes les lignes commençant par 'Fil... et donc se terminant par un vbCr (si c'est reconnu dans le code) et les supprimer. Hors, le code de paragraphe ^p n'est pas reconnu dans la fonction de recherche du "code" vba (je ne parle pas dans un doc mais dans le code).

    Des idées ?

    Merci à l'avance
    iBenny

  2. #2
    Expert éminent sénior
    Citation Envoyé par iBenny Voir le message

    Bonjour,

    Essayez :
    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
     
    Sub TestSupprimerLesParagraphes()
     
        SupprimerLesParagraphes "Fil"
     
    End Sub
     
     
    Sub SupprimerLesParagraphes(ByVal TexteAChercher As String)
     
    Dim J As Integer
     
        With ActiveDocument
             For J = .Paragraphs.Count To 1 Step -1
                 With .Paragraphs(J)
                      If Mid(.Range.Text, 1, Len(TexteAChercher)) = TexteAChercher Then
                         .Range.Select
                         Selection.Delete
                      End If
                 End With
             Next J
        End With
     
    End Sub
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

  3. #3
    Nouveau membre du Club
    Bonjour Éric,

    je crois que vous n'avez pas saisi :

    Mon "CODE" VBA de 4762 lignes comporte des lignes que je veux effacer. Il y en a un peu partout.



    Je veux supprimer toutes les lignes commençant par 'FilDAriane

    Le module de remplacement de VBA est ceci :



    Il a l'option de prendre en charge des 'Critères spéciaux", mais pas tous. Le "*" est reconnu mais pas le "^p".

    Avez-vous des idées ?
    Merci de votre aide.
    iBenny

  4. #4
    Expert éminent sénior
    Citation Envoyé par iBenny Voir le message

    Question : Ce sont des lignes ou des paragraphes que vous voulez effacer ?
    Si ce sont des paragraphes, vous avez écrit "Je veux rechercher toutes les lignes commençant par 'Fil... "
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

  5. #5
    Nouveau membre du Club
    Bonjour !

    Je viens de résoudre le problème ! Quand on utilise le caractère spécial "*", il prends tout jusqu'à la fin de la ligne. Donc... le "*" signifie en réalité "*^p" !

    Merci de votre passage.
    Sincèrement,
    iBenny

  6. #6
    Nouveau membre du Club
    Citation Envoyé par Eric KERGRESSE Voir le message
    Question : Ce sont des lignes ou des paragraphes que vous voulez effacer ?
    Si ce sont des paragraphes, vous avez écrit "Je veux rechercher toutes les lignes commençant par 'Fil... "
    En fait, dans le code c'est plutôt des lignes ^l et non des paragraphes ^p... donc, rechercher 'Fil* = rechercher 'Fil*^l

    Bonne journée !
    iBenny

###raw>template_hook.ano_emploi###