Si vous possédez un document qui contient plusieurs tableaux, vous recherchez peut-être un moyen de modifier la largeur de tous les tableaux du document. Par exemple, les normes de votre entreprise peuvent exiger que toutes les tables aient la même largeur, s’étendant de la marge gauche à droite.

Si vous avez quarante tableaux ou plus dans un document, modifier la largeur de chacun d’eux, individuellement, peut être très fastidieux.

La macro suivante, ResizeAllTables, fera rapidement ce qu’elle dit: redimensionner toutes les tables. Les largeurs des tableaux sont ajustées pour remplir les marges disponibles.

Sub ResizeAllTables()

Dim oTbl As Table     For Each oTbl In ActiveDocument.Tables         oTbl.AutoFitBehavior wdAutoFitFixed         With ActiveDocument.PageSetup             oTbl.PreferredWidth = .PageWidth - .LeftMargin - .RightMargin         End With     Next oTbl End Sub

Une fois la macro terminée, vous devez toujours examiner chaque table pour vous assurer que vos largeurs de colonne sont adaptées à vos données, mais que la largeur totale des tables sera celle que vous attendiez.

_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 (1382) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:

link: / wordribbon-Expanding_Width_of_All_Tables [Expansion de la largeur de toutes les tables].