Supprimer les doublons
Résolu
RideauBlanc
Messages postés
29
Statut
Membre
-
RideauBlanc Messages postés 29 Statut Membre -
RideauBlanc Messages postés 29 Statut Membre -
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.
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:
- Supprimer les doublons
- Supprimer rond bleu whatsapp - Guide
- Supprimer page word - Guide
- Supprimer les doublons excel - Guide
- Doublons photos - Guide
- Supprimer pub youtube - Accueil - Streaming
2 réponses
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 585
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
