Les tableaux sont un excellent moyen de présenter de nombreux types d’informations. En fait, j’ai vu des documents qui se composent presque entièrement de tableaux. Si vous travaillez beaucoup avec des tableaux, vous voudrez peut-être (à un moment donné) copier tous les tableaux d’un document vers un tout nouveau document. Cela peut être utile si vous avez des informations tabulaires qui doivent être disponibles dans le nouveau document, mais que vous n’avez pas besoin du reste des informations du document d’origine.

Le moyen le plus simple d’effectuer ce type de copie consiste à utiliser une macro.

Heureusement, toutes les tables d’un document sont mises à la disposition de VBA via la collection Tables. Cela signifie que vous pouvez parcourir chaque élément de la collection (chaque élément sera une table individuelle), puis le copier.

Sub CopyTables()

Dim Source As Document     Dim Target As Document     Dim tbl As Table     Dim tr As Range

Set Source = ActiveDocument     Set Target = Documents.Add

For Each tbl In Source.Tables         Set tr = Target.Range         tr.Collapse wdCollapseEnd         tr.FormattedText = tbl.Range.FormattedText         tr.Collapse wdCollapseEnd         tr.Text = vbCrLf     Next End Sub

La macro, une fois exécutée, crée un tout nouveau document (cible) et copie les tableaux du document d’origine (source) dans le nouveau. (Le document source est le document qui était actif lorsque vous avez exécuté la macro.)

La macro place une ligne vide entre chaque tableau dans le document cible.

Si vous ne voulez pas de ligne vide, supprimez ou commentez la ligne juste avant l’instruction Next.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (13338) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365.