Discussion :

[cécé92]

Bonsoir à tous,

J'ai besoin de vos précieuses compétences pour une macro me posant des problèmes. En effet, j'ai un document Word dans lequel se trouve parfois plusieurs lignes en doubles. J'aimerais donc supprimer de manière automatique les différents doublons. Par exemple, dans le fichier ci-joint, j'ai 1 phrase (en rouge) pour laquelle nous avons une seconde ligne identique. Je souhaiterais supprimer une phrase pour ne garder qu'une phrase unique.

Merci de votre aide!
cécé92

[Souriane]

Bonjour,

Voici la macro que j'utilise pour ce genre de travail. (Elle est de Dominique Maniez) :

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
Sub supprdoublon()
    Dim deplacement As Long
'on se déplace au début du texte
    selection.HomeKey unit:=wdStory
' on sélectionne les deux premiers paragraphes
    selection.MoveDown unit:=wdParagraph, count:=1, Extend:=wdExtend
    deplacement = selection.MoveDown(unit:=wdParagraph, _
    count:=1, Extend:=wdExtend)
' tant qu'on n'a pas atteind la fin du document
    Do While deplacement > 0
        If selection.Paragraphs(1).Range.Text = _
        selection.Paragraphs(2).Range.Text Then
' les paragraphes sont identiques
        selection.Paragraphs(2).Range.delete
' on efface le paragraphe
        deplacement = selection.MoveDown(unit:=wdParagraph, _
        count:=1, Extend:=wdExtend)
    Else ' les paragraphes ne sont pas identiques
        deplacement = selection.MoveDown(unit:=wdParagraph, _
        count:=1, Extend:=wdExtend)
        selection.MoveStart unit:=wdParagraph, count:=1
    End If
Loop
End Sub

Mais ATTENTION, dans l'exemple de document que vous avez donné, ça ne fonctionnera pas : il y a pas le même nombre de tabulation sur les deux lignes... C'est une macro qui vérifie si les lignes sont exactement pareilles...

Bonne chance!

Souriane

[cécé92]

Bonsoir Souriane,

Je vous prie de m'excuser pour ma réponse tardive. C'est exactement ce dont je souhaitais. Cependant, la macro supprime uniquement les doublons dans les paragraphes. Avez-vous une méthode pour que celle-ci supprime également les doublons lorsqu'ils sont aussi dans un tableau?

Merci de ton aide!

cécé92