Discussion :

[mikejef]

Bonjour.
je cherche a modifier des textes. Ils ont tous la même forme, voila un exemple:

1.SALUT
SALUT:salut
salut


je voudrais garder uniquement les lignes qui commence par un mot en gras j'espère avoir été aussi clair que possible d'avance Merci

[Heureux-oli]

Salut,

Il suffit de vérifier la mise en forme du mot.
Si le premier mot du paragraphe est en Gras on garde le paragraphe, dans le cas contraire, on supprime le paragraphe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub SupprGras()
Dim pAra As Paragraph
 
 
For Each pAra In ActiveDocument.Paragraphs
If pAra.Range.Words(1).Font.Bold = False Then pAra.Range.Delete
 
 
Next pAra
 
 
End Sub

[mikejef]

Merci beaucoup ça m'aide énormément