Discussion :

[iBenny]

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

[Invité]

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

[iBenny]

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

[Invité]

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... "

[iBenny]

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

[iBenny]

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