Discussion :

[damienea]

Bonjour,

J'ai un document word générer automatiquement par un publipostage qui contient des paragraphes vides délimités par des mots précis (ici toto).

Exemple :

6.31. toto


toto
6.32. Transfert (aller simple)

En cas de,


6.33. toto


toto

Je souhaite, à l'aide d'une macro vba, supprimer tous les paragraphes commencant par "toto" et finissant par "toto".

J'ai cherché et trouver plusieurs sources sur le net mais aucune ne repond à mes attentes.

Est ce que quelqu'un a une idée ?

Merci d'avance

[dadavyvy]

Essaie :

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
Sub Macro1()
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "toto" 'texte delimitant la plage
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    deb = -1
    Do While Selection.Find.Execute
        If deb = -1 Then
            deb = Selection.Range.Start
        Else
            ThisDocument.Range(deb, Selection.Range.End).Delete
            deb = -1
        End If
    Loop
End Sub

[damienea]

Bonjour,

Merci de t'être penché sur mon problème...

En fait je n'arrivait pas à faire fonctionner ta macro, donc j'ai continué à chercher de mon coté et j'ai enfin trouvé mon bonheur. Je met la macro au cas ou ca puisse interresser d'autres utilisateurs :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub testpara()
 
Dim Para As Paragraph, a
ActiveDocument.Select
For Each Para In ActiveDocument.Paragraphs
Para.Range.Select
a = Trim(Para.Range.Words(1))
If LCase(Trim(Para.Range.Words(1))) = LCase("toto") Then
Para.Range.Delete
End If
 
Next Para
End Sub