[WD-2003] Supprimer paragraphes de niveau 2 [Résolu]

[bakman]

Bonjour, je cherche à supprimer un paragraphes entier à partir d'une recherche sur le titre en mode d'affichage PLAN.
voici ce que j'utilise :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "MON TITRE"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
   Selection.Delete Unit:=wdLine, Count:=1

La fonction Delete ne m'efface que le titre et pas le paragraphe entier que faut t'il utiliser comme méthode?

[Heureux-oli]

Salut,

c'est normal, seul le titre possède un niveau, pas le paragraphe.

Tu peux toujours augmenter la sélection d'un paragraphe vers la fin, mais après le premier Delete

Code :

1
2
3
4
 
Selection.Delete
Selection.Expand Unit:=wdParagraph
Selection.Delete

[bakman]

Merci beaucoup ca fonctionne impeccablement