Word dispose d’une puissante fonction de recherche et de remplacement qui vous permet de rechercher pratiquement tout ce qui se trouve dans votre document. Word inclut même des codes que vous pouvez utiliser pour rechercher des éléments spéciaux. (Cliquez sur le bouton Spécial dans la boîte de dialogue Rechercher et remplacer pour voir quels codes sont disponibles.) Cependant, vous ne pouvez pas rechercher les zones de texte. Il n’y a pas de code spécial qui vous permet de rechercher des zones de texte et vous ne pouvez pas les rechercher à l’aide de l’Explorateur d’objets.

Vous pouvez cependant utiliser une macro pour parcourir un document et vous arrêter lorsqu’il trouve une zone de texte. La macro suivante s’arrête sur chaque zone de texte qu’elle trouve et demande à l’utilisateur si c’est la zone de texte souhaitée.

Sub SearchTextBox()

Dim shp As Shape     Dim sTemp As String     Dim iAnswer As Integer

For Each shp In ActiveDocument.Shapes         If shp.Type = msoTextBox Then             shp.Select             Selection.ShapeRange.TextFrame.TextRange.Select             sTemp = Selection.Text             sTemp = Left(sTemp,20)

iAnswer = MsgBox("Box contains text beginning with:" & vbCrLf _               & sTemp & vbCrLf & "Stop here?", vbYesNo, "Located Text Box")

If iAnswer = vbYes Then Exit For         End If     Next 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 (3520) 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_Text_Boxes [Recherche de zones de texte].