Note: The other languages of the website are Google-translated. Back to English

Comment sélectionner toutes les tables dans un document Word?

Il est facile de sélectionner un tableau dans Word en cliquant sur le bouton symbole de table de sélection par point bouton dans le coin supérieur gauche du tableau comme illustré ci-dessous. Vous pouvez également sélectionner un tableau avec la fonction Sélectionner un tableau. Cependant, existe-t-il un moyen de sélectionner rapidement toutes les tables à la fois dans un document Word? Les méthodes décrites dans cet article vous aideront à vous en sortir. 


Sélectionnez toutes les tables dans Word avec le code VBA

Sélectionnez facilement toutes les tables dans Word avec Kutools for Word


Sélectionnez toutes les tables dans Word avec le code VBA

1. presse autre + F11 clés pour ouvrir le Microsoft Visual Basic pour Application fenêtre.

2. Dans l'ouverture Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module, Puis copiez et collez le code VBA suivant dans la fenêtre Module;

Code VBA: sélectionnez toutes les tables du document actuel:

Sub selecttables()
Dim mytable As Table

For Each mytable In ActiveDocument.Tables
mytable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
End Sub

3. appuie sur le F5 touche pour exécuter le code

Ensuite, toutes les tables sont sélectionnées immédiatement dans le document actuel.


Sélectionnez facilement toutes les tables dans Word avec Kutools for Word

Comparaison avec l'utilisation d'un code VBA pour sélectionner toutes les tables d'un document, Kutools for Word's Sélectionner des tables l'utilité est assez pratique. Vous pouvez utiliser cette fonction pour sélectionner des tableaux dans une sélection ou dans tout le document. Veuillez procéder comme suit:

Kutools pour Word : Avec plus de 100 compléments Word pratiques, libre d'essayer sans limitation dans 60 jours.

Cliquez Kutools > Tables > Sélectionner des tables. Voir la capture d'écran:

Notes: Pour sélectionner des tables dans la sélection, vous devez d'abord sélectionner la plage, puis appliquer la fonction.

Ensuite, vous pouvez voir les résultats comme suit.

Sélectionnez les tables dans la sélection:

Sélectionnez des tableaux dans tout le document:

Si vous souhaitez avoir un essai gratuit de cet utilitaire, rendez-vous sur télécharger gratuitement le logiciel d'abord, puis appliquez l'opération selon les étapes ci-dessus.


Démo: sélectionnez facilement toutes les tables dans Word avec Kutools for Word



Outils de productivité Word recommandés

 

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

  • Les opérations compliquées et répétées peuvent être effectuées une seule fois en quelques secondes.
  • Insérez simultanément plusieurs images dans des dossiers dans un document Word.
  • Fusionner et combiner plusieurs fichiers Word dans des dossiers en un seul avec l'ordre souhaité.
  • Divisez le document actuel en documents séparés selon l'en-tête, le saut de section ou d'autres critères.
  • Convertissez des fichiers entre Doc et Docx, Docx et PDF, collection d'outils pour les conversions et la sélection courantes, etc.
Commentaires (10)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
merci beaucoup c'est un bon programme mais après quelques jours il s'est arrêté et a besoin d'un mot de passe et d'un nom d'utilisateur
Ce commentaire a été minimisé par le modérateur sur le site
excellente macro et très facile
Ce commentaire a été minimisé par le modérateur sur le site
Code astucieux au début, mais il a définitivement corrompu un tas de tables dans Word 2010. J'ai assez foiré mon fichier et j'ai dû revenir à une version antérieure. Se méfier!
Ce commentaire a été minimisé par le modérateur sur le site
Merveilleux, j'ai obtenu la solution en utilisant le code VBA. Merci beaucoup
Ce commentaire a été minimisé par le modérateur sur le site
Le code modifié suivant sélectionne toutes les tables, à l'exception des tables n'ayant qu'une seule ligne : Sub SelAllTbls() ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl As Table For Each Tbl In ActiveDocument.Tables If Tbl.Rows.Count > 1 Then Tbl.Range. Editors.Add (-1) End If Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Le code suivant ne sélectionne que les lignes d'en-tête : Sub selallHeaders() On Error Resume Next ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl As Table For Each Tbl In ActiveDocument.Tables Tbl.Rows(1).Range.Editors.Add (-1) Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub J'ai beaucoup plus de codes de ce type qui sélectionnent les dernières lignes, toutes les puces, petits / longs paras, etc. Regardez ma vidéo suivante : https://www.youtube.com/watch?v=p_ZhufliFw8
Ce commentaire a été minimisé par le modérateur sur le site
Il y a plusieurs tableaux dans un document (environ 200). Je souhaite sélectionner tous ces tableaux uniquement et les coller dans un nouveau document au format tableau. Lorsque je sélectionne les tableaux selon la procédure ci-dessus, lors de l'opération de collage, il les colle sous forme de texte et non sous forme de tableau. Pouvez-vous m'aider s'il vous plaît?
Ce commentaire a été minimisé par le modérateur sur le site
Il semble que ces macros ne fonctionnent pas dans Word 2016
Ce commentaire a été minimisé par le modérateur sur le site
Cela fonctionne dans Word 2016. Quelle erreur obtenez-vous ?
Ce commentaire a été minimisé par le modérateur sur le site
Je comprends déjà. Pour que les macros fonctionnent correctement, le curseur ne doit pas être dans le tableau lorsque vous appelez des macros. Merci.
Ce commentaire a été minimisé par le modérateur sur le site
Très belle méthode. Merci
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL