Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment supprimer les lignes en double de la table dans un document Word?

Dans un document Word, vous pouvez supprimer certaines tables contenant des lignes en double et conserver parfois la première apparence. Dans ce cas, vous pouvez choisir de supprimer manuellement les doublons, un par un, et d'utiliser le code VBA.

Supprimer les lignes en double de la table dans Word

Insérez rapidement le champ de formulaire de la case à cocher dans plusieurs contenus à la fois dans un document Word

Avec Kutools pour Word CheckBox utilitaire, vous avez juste besoin d'un clic, vous pouvez insérer le champ de formulaire de case à cocher dans le contenu sélectionné dans le document Word une fois. Cliquez pour l'essai gratuit de 45 days!
champ de formulaire doc case à cocher
Kutools for Word: avec des centaines de compléments Word à portée de main, gratuit à essayer sans limitation dans les jours 45.

Supprimer les lignes en double de la table dans Word

1. Placez le curseur sur la table dont vous souhaitez supprimer les lignes en double, appuyez sur Alt + F11 touches pour activer le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module créer un nouveau module.
doc supprimer les lignes en double table01

3. Copiez les codes ci-dessous et collez-les dans le nouveau Module scripts.

VBA: Supprimer les lignes en double de la table dans Word

Public Sub DeleteDuplicateRows2 () 'UpdatebyExtendoffice20181011 Dim xTable As Table Dim xRow As Range Dim xStr As String Dim xDic As Object Dim I, J, KK, xNum As Long If ActiveDocument.Tables.Count = 0 Then MsgBox "Ce document n'a pas de table (s). ", vbInformation," Kutools for Word "Quitter Sub End si Application.ScreenUpdating = False Définir xDic = CreateObject (" Scripting.Dictionary ") Si Selection.Information (wdWithInTable), puis définissez xTable = Selection.Tables (1) Pour I = xTable.Rows.Count Pour 1 Étape -1 Définissez xRow = xTable.Rows (I) .Range xStr = xRow.Text xNum = -1 Si xDic.Exists (xStr) Then 'xTable.Rows (I) .Delete Pour J = xTable.Rows.Count à 1 Étape -1 Si (xStr = xTable.Rows (J) .Range.Text) Et (J <> I) Alors xNum = xNum + 1 xTable.Rows (J) .Delete End Si Next I = I - xNum Sinon xDic.Add xStr, I End si Next Sinon pour I = 1 Vers ActiveDocument.Tables.Count Définissez xTable = ActiveDocument.Tables (I) xNum = -1 xDic.RemoveAll pour J = xTable.Rows .Count To 1 Step -XNU MX Set xRow = xTable.Rows (J) .Range xStr = xRow.Text xNum = -1 Si xDic.Exists (xStr) Puis 'xTable.Rows (I) .Delete pour KK = xTable.Rows.Count à l'étape 1 - 1 If (xStr = xTable.Rows (KK) .Range.Text) Et (KK <> J) Ensuite, xNum = xNum + 1 xTable.Rows (KK). Supprimer la fin si suivant J = J - xNum Sinon xDic.Add xStr , J End If Suivant Next End si Application.ScreenUpdating = True End Sub

doc supprimer les lignes en double table02

4. presse F5 clé pour exécuter le code, toutes les lignes en double seront supprimées.
doc supprimer les lignes en double table03

Note: Le code ci-dessus est sensible à la casse. Si vous souhaitez supprimer les lignes en double sans tenir compte de la casse, vous pouvez utiliser le code ci-dessous:

Public Sub DeleteDuplicateRows2 () 'UpdatebyExtendoffice20181011 Dim xTable As Table Dim xRow As Range Dim xStr As String Dim xDic As Object Dim I, J, KK, xNum As Long If ActiveDocument.Tables.Count = 0 Then MsgBox "Ce document n'a pas de table (s). ", vbInformation," Kutools for Word "Quitter Sub End si Application.ScreenUpdating = False Définir xDic = CreateObject (" Scripting.Dictionary ") Si Selection.Information (wdWithInTable), puis définissez xTable = Selection.Tables (1) Pour I = xTable.Rows.Count à 1 Étape -1 Définissez xRow = xTable.Rows (I) .Range xStr = UCase (xRow.Text) xNum = -1 Si xDic.Exists (xStr) Alors 'xTable.Rows (I ). Supprimer pour J = xTable.Rows.Count en 1 Étape -1 Si (xStr = xTable.Rows (J) .Range.Text) Et (J <> I) Alors xNum = xNum + 1 xTable.Rows (J) .Supprimez Fin si Suivant I = I - xNum Sinon xDic.Add xStr, I Fin si Suivant Sinon pour I = 1 Vers ActiveDocument.Tables.Count Définissez xTable = ActiveDocument.Tables (I) xNum = -1 xDic.RemoveAll pour J = xTable.Rows.Count à 1 St ep -1 Définissez xRow = xTable.Rows (J) .Range xStr = UCase (xRow.Text) xNum = -1 Si xDic.Exists (xStr) Alors, 'xTable.Rows (I) .Delete pour KK = xTable.Rows. Compter vers 1 Étape -1 Si (xStr = xTable.Rows (KK) .Range.Text) Et (KK <> J) Alors xNum = xNum + 1 xTable.Rows (KK). Supprimer la fin si suivant J = J - xNum Sinon xDic.Add xStr, J End si Next Suivant End si Application.ScreenUpdating = True End Sub

Si vous souhaitez supprimer les lignes en double dans toutes les tables du document, placez le curseur à la place du document en dehors de la table, puis appliquez l'un des codes ci-dessus.


Navigation par onglets et édition de plusieurs documents Word / classeurs Excel sous Firefox, Chrome, Internet Explorez 10!

Vous pouvez être familier pour voir plusieurs pages Web dans Firefox / Chrome / IE, et basculer entre eux en cliquant sur les onglets correspondants facilement. Ici, l'onglet Office prend en charge le traitement similaire, qui vous permet de parcourir plusieurs documents Word ou classeurs Excel dans une fenêtre Word ou une fenêtre Excel, et de basculer facilement entre eux en cliquant sur leurs onglets.
Cliquez pour l'essai gratuit de l'onglet Office!

Parcourir plusieurs documents Word dans une fenêtre en tant que Firefox


Outils de productivité Word recommandés

Kutools For Word - Plus de fonctionnalités avancées 100 pour Word, économisez votre% de temps 50

  • Des opérations compliquées et répétées peuvent être effectuées en une seconde.
  • Insérez plusieurs images sur des dossiers dans un document Word à la fois.
  • Fusionner et combiner plusieurs fichiers Word sur plusieurs dossiers en un seul avec votre ordre souhaité.
  • Divisez le document actuel en documents distincts en fonction de l'en-tête, du saut de section ou d'un autre critère.
  • Convertir des fichiers entre Doc et Docx, Docx et PDF, une collection d'outils pour les conversions et la sélection courantes, etc.
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.