Recherche et suppression de lignes (Microsoft Word)
Sam a un document qui contient des tableaux dans lesquels il souhaite supprimer des lignes. Les lignes contiennent du texte spécifique, qu’il peut certainement supprimer en utilisant Rechercher et remplacer, mais il souhaite supprimer toutes les lignes qui contiennent ce texte.
Il n’existe aucun moyen de le faire (supprimer des lignes) à l’aide des fonctionnalités normales de recherche et de remplacement de Word. Au lieu de cela, vous devez utiliser une macro qui trouvera le texte, puis supprimera la ligne entière. Voici une macro relativement simple qui fera l’affaire:
Sub DeleteRowWithSpecifiedText() Dim sText As String sText = InputBox("Enter text for Row to be deleted") Selection.Find.ClearFormatting With Selection.Find .Text = sText .Wrap = wdFindContinue End With Do While Selection.Find.Execute If Selection.Information(wdWithInTable) Then Selection.Rows.Delete End If Loop End Sub
Cette macro affiche d’abord une zone de saisie qui demande à l’utilisateur de spécifier le texte à rechercher. Il commence alors à rechercher toutes les instances de ce texte. Si une instance est trouvée, la sélection est vérifiée pour s’assurer qu’elle se trouve dans une table. Si tel est le cas, la ligne entière est supprimée et la macro passe à l’occurrence suivante.
_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 (3838) 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-Finding_and_Deleting_Rows [Recherche et suppression de lignes]
.