user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

 

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

Aujourd'hui1528
Hier2538
Cette semaine9113
Ce mois11401
Total depuis 200414164117

51
visiteurs actuellement en ligne

6 octobre 2022