Heidi a quinze documents, chacun composé principalement d’une longue table.

Elle doit créer une macro pour rechercher ligne par ligne et mettre en évidence (soit par ombrage, gras, changement de police, etc.) toute ligne qui n’a pas de caractère de parenthèse n’importe où dans la ligne. Sinon, elle peut également mettre en évidence les lignes qui contiennent un caractère entre parenthèses – elle a juste besoin de pouvoir faire la distinction entre les lignes qui contiennent et les lignes qui ne le font pas.

Une telle macro peut être abordée de plusieurs manières, mais celle qui recherche une parenthèse ouvrante ou fermante est relativement facile. L’exemple suivant effectuera la recherche, ligne par ligne, et si l’un des caractères est trouvé, il mettra en évidence la ligne en rendant l’arrière-plan jaune.

Sub HilightRows()

Dim TargetText1 As String     Dim TargetText As String     Dim oRow As Row     Dim iCol As Integer

'initialize the target characters to find     TargetText = "("

TargetText1 = ")"



'Make sure we're in a table     If Selection.Information(wdWithInTable) Then         'Clear all the old shading         Selection.Tables(1).Shading.BackgroundPatternColor = wdColorWhite         'do all the rows         For Each oRow In Selection.Tables(1).Rows             If InStr(oRow.Range.Text, TargetText) > 0 Then _               oRow.Shading.BackgroundPatternColor = wdColorYellow             If InStr(oRow.Range.Text, TargetText1) > 0 Then _               oRow.Shading.BackgroundPatternColor = wdColorYellow         Next oRow     End If 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 (568) 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-Noting_Table_Rows_Containing_a_Character [Noting Table Rows Containing a Character].