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


Kutools for Word

Plus que des fonctions avancées 100 pour Word 2003, 2007, 2010, 2013, 2016 et 2019

coup-kutools-700-225-kte

Plus de fonctionnalités | Essai Gratuit | Seulement $ 39.00 pour des centaines de fonctions

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.