Supprimer les doublons Résolu

Question

Bonjour,

Après 2 jours de recherche, je m'en remets à vous.

En VBA Word, je suis à la recherche d'une macro qui pourrait comparer 2 lignes et supprimer la seconde si identique (en paragraphe ou en tableau, ça m'importe peu). Il s'agit de listes de mots ou d'expression qui peuvent avoir jusqu'à 100 pages. Je l'ai fait en Excel en utilisant les fonctions de recherche de doublons dans un code VBA et ça fonctionne très bien, mais en Word, je suis bloquée probablement par la syntaxe.

Par exemple : 
Si 1er paragraphe = 2e paragraphe alors supprime 2e paragraphe 
Si 2e paragraphe = 3e paragraphe alors supprime 3e paragraphe 

ou 
Si ActiveDocument.Tables.Cell(1, 1) = ActiveDocument.Tables.Cell(2, 1) alors supprime le second.

Le but est de créer des listes de marquage automatique d'index pour des documents de plus de 500 pages. J'ai déjà écrit le code pour créer mes listes triées. 

Je vous remercie pour toute piste de solutions que vous pourrez me fournir.

yg_be · Answer

bonjour, je suggère ceci.
Option Explicit

Private Sub remdoub()
Dim p As Paragraph, oldt As String, newt As String
oldt = ""
For Each p In ActiveDocument.Paragraphs
    newt = p.Range.Text
    If newt = oldt Then
        p.Range.Delete
    Else
        oldt = newt
    End If
Next p
End Sub

RideauBlanc · Answer

C'est exactement ça. Ça fonctionne très bien. Je ne sais pas comment vous remercier. Je vous souhaite une excellente journée.

Supprimer les doublons

2 réponses

Discussions similaires

Newsletters