Dans ma ligne de travail, j’ai besoin de créer des documents contenant de nombreux tableaux.

Ces tableaux doivent suivre une structure rigide, y compris l’exigence qu’aucune cellule ne peut être vide. (Si une cellule est vide, elle doit contenir les caractères « N / A ».)

Pour aider à travailler avec cette exigence pour les tableaux, j’ai créé une macro qui examine la table pour moi et ajoute les caractères N / A, le cas échéant. Tout ce que j’ai à faire est de placer le point d’insertion dans la table cible, puis d’exécuter cette macro:

Sub AddTableNA()

Dim NumRows As Integer     Dim NumCols As Integer     Dim J As Integer     Dim K As Integer     Dim ChkTxt As String

If Not Selection.Information(wdWithInTable) Then         Exit Sub     End If

NumRows = Selection.Tables(1).Rows.Count     NumCols = Selection.Tables(1).Columns.Count

'Loop to select each row in the current table     For J = 1 To NumRows         'Loop to select each cell in the current row         For K = 1 To NumCols             'Select the cell to check             Selection.Tables(1).Rows(J).Cells(K).Select             'Copy any text in the cell             ChkTxt = Selection.Text             'Strip off the last 2 characters (removes end of cell marker)

ChkTxt = Left(ChkTxt, Len(ChkTxt) - 2)

'If empty, add "n/a" text             If (ChkTxt = "") Then Selection.TypeText ("N/A")

Next K     Next J End Sub

La macro vérifie d’abord si le point d’insertion se trouve dans une table.

Sinon, la macro est fermée tôt. Si tel est le cas, les variables NumRows et NumCols sont définies sur le nombre de lignes et de colonnes du tableau, respectivement.

La macro parcourt ensuite chaque cellule de chaque ligne, déterminant si la cellule contient quelque chose. En raison de la façon dont Word construit les tableaux, une cellule contiendra toujours quelque chose – le marqueur de fin de cellule – même si rien d’autre ne s’y trouve. La solution était de soustraire deux caractères de la fin du texte dans la cellule, puis de voir s’il restait quelque chose. Sinon, les caractères «N / A» sont saisis dans la cellule.

_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 (3875) 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-Putting_Something_in_Every_Cell_of_a_Table [Mettre quelque chose dans chaque cellule d’une table].