Supprimer les doublons

Résolu
RideauBlanc Messages postés 27 Date d'inscription   Statut Membre Dernière intervention   -  
RideauBlanc Messages postés 27 Date d'inscription   Statut Membre Dernière intervention   -
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.
A voir également:

2 réponses

Réponse 1 / 2
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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
0
Réponse 2 / 2
RideauBlanc Messages postés 27 Date d'inscription   Statut Membre Dernière intervention   2
 
C'est exactement ça. Ça fonctionne très bien. Je ne sais pas comment vous remercier. Je vous souhaite une excellente journée.
0

Discussions similaires

PIX
plart -
jordane45 -

1 réponse