Recherche

Notez que Word respecte la casse. Donc pour le mot, mettez bien la majuscule (s'il commence bien par une majuscule).


Sub suppr()
Dim Para As Paragraph, mot, a
mot = "Mot"  'Saisir le mot à trouver
For Each Para In ActiveDocument.Paragraphs
Para.Range.Select
= Para.Range.Words(1)
If a = mot & " " Then Para.Range.Delete
Next Para
End Sub

Statistiques

France 75,6% France
Canada 8,1% Canada
États-Unis d'Amérique 4,8% États-Unis d'Amérique

Total:

64

Pays
018273552
Aujourd'hui: 7
Hier: 93
Cette semaine: 658
Semaine dernière: 1.156
Ce mois: 1.814