Lorsque vous insérez un tableau dans Word, une bordure est automatiquement créée pour chaque cellule du tableau. Cette bordure est une seule ligne, d’un demi-point de poids. Malheureusement, Word ne vous permet pas de modifier la largeur de ligne par défaut que vous utilisez lors de la création du tableau. S’il est vrai que vous pouvez choisir une largeur de ligne dans la boîte de dialogue Bordures et trame, ce poids est réinitialisé à un demi-point lorsque vous insérez un nouveau tableau.

Si vous voulez une autre largeur de ligne, par exemple trois quarts de point, vous avez un problème. Vous devez sélectionner manuellement tout nouveau tableau et formater les bordures afin qu’elles aient la largeur souhaitée. Si vous travaillez avec beaucoup de tables, cela peut rapidement devenir un problème. Vous pouvez, bien sûr, créer un style de tableau, mais l’application d’un style de tableau peut donner des résultats inégaux si tout ce que vous voulez faire est de changer la largeur de la ligne ou si vous travaillez avec un document dans lequel beaucoup de mise en forme explicite a été appliquée. les tables.

Le meilleur moyen de contourner ce problème est peut-être d’écrire une macro. Même si ce n’est peut-être pas la solution la plus idéale, c’est certainement plus facile que de modifier manuellement chaque tableau du document.

La macro suivante, FixCellBorders, parcourt chaque cellule de chaque tableau de votre document et s’assure que l’épaisseur de ligne minimale est de trois quarts de point. Pour ce faire, il vérifie les paramètres de ligne actuels, puis effectue le réglage uniquement si nécessaire.

Sub FixCellBorders()

' Work through all tables in document     For Each objTable In ActiveDocument.Tables         ' Work through all cells in each table         For Each objCell In objTable.Range.Cells             ' Work through all borders in each cell             For Each objBorder In objCell.Borders                 ' Check if line weight is less than 0.75 pt                 If objBorder.LineWidth = wdLineWidth025pt _                   Or objBorder.LineWidth = wdLineWidth050pt Then                     ' too thin, change it                     objBorder.LineWidth = wdLineWidth075pt                 End If             Next objBorder         Next objCell     Next objTable End Sub

Comme vous pouvez l’imaginer, la macro n’est pas très rapide puisqu’elle examine les quatre bordures de chaque cellule de chaque tableau de votre document. L’avantage, cependant, est que la macro ne modifiera que le poids de toute bordure de cellule qui est à un quart ou un demi-point. Cela signifie que tout formatage manuel que vous avez effectué pour différentes largeurs de ligne ne changera pas.

Si vous recherchez une macro un peu plus rapide, ce qui suit (FixTableBorders) fera l’affaire. Au lieu de regarder des cellules individuelles, cela fonctionne sur des tables entières. La différence, cependant, est qu’il réinitialise chaque bordure de chaque table aux trois quarts de point, en utilisant une seule ligne. Si cela répond à vos besoins, cependant, c’est certainement le moyen le plus simple (le plus rapide).

Sub FixTableBorders()

For Each objTable In ActiveDocument.Tables         With objTable             With .Borders(wdBorderLeft)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderRight)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderTop)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderBottom)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderHorizontal)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderVertical)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With         End With     Next objTable End Sub

_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 (880) 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-Setting_a_Default_Table_Border_Width [Définition d’une largeur de bordure de table par défaut].