Discussion :

[f69815]

bonsoir le forum,

j'ai consulté la discussion : Supprimer le texte qui n'est pas entre deux lignes,

en pensant que j'allais pouvoir l'adapter à mon cas qui tout à fait le contraire.
je veux supprimer tout le texte qui se trouve entre "Ecole" et "Réunion", y compris la ligne qui commence par "Ecole", mais pas celle commençant par "Réunion".

cordialement.

[Heureux-oli]

Salut,

Il faut ajouter un signet devant le premier mot et devant le dernier mot.
Sélectionner la page entre les deux signets et supprimer son contenu.

Essaie ce code :

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
 
Sub RechercherEtsuppimerPlage()
Selection.HomeKey unit:=wdStory
 
With Selection.Find
    .Forward = True
 
    .ClearFormatting
 
    .Text = "Ecole"
    .Execute
    Debug.Print .Found & "start"
End With
 
Selection.Collapse direction:=wdCollapseStart
Selection.Bookmarks.Add Name:="SS", Range:=Selection.Range
Selection.HomeKey unit:=wdStory
 
With Selection.Find
    .Forward = True
 
    .ClearFormatting
    .Text = "Réunion"
    .Execute
    Debug.Print .Found & "end"
 
End With
Selection.Collapse direction:=wdCollapseStart
 
Selection.Bookmarks.Add Name:="SE", Range:=Selection.Range
 
ActiveDocument.Range(Start:=ActiveDocument.Bookmarks("ss").Range.Start, End:=ActiveDocument.Bookmarks("se").Range.End).Select
 
Debug.Print Selection.Text
Selection.Delete
 
 
 
End Sub

[f69815]

bonsoir Heureux-oli,

merci de ta réponse elle fonctionne parfaitement.
bon WE.