Word inclut des commandes et des raccourcis qui vous permettent de rechercher des graphiques dans vos documents. Malheureusement, ces méthodes de recherche ne sont utiles que pour trouver des graphiques en ligne. Si vous voulez trouver des graphiques flottants, vous n’avez pas de chance; puisqu’ils se trouvent sur la couche graphique et non dans le document réel, Word les ignore pratiquement.

Il existe cependant un moyen de trouver des graphiques flottants à l’aide d’une macro. Une macro peut examiner les graphiques flottants de votre document et sélectionner chacun d’eux à leur tour. La macro suivante fait exactement cela:

Sub FindFigs()

Dim varItem As Variable     Dim bExists As Boolean     Dim iShapeCount As Integer     Dim iJumpTo As Integer

' ensure variable exists     bExists = False     For Each varItem In ActiveDocument.Variables         If varItem.Name = "FigNum" Then             bExists = True             Exit For         End If     Next varItem

' initialize document variable if doesn't exist     If Not bExists Then         ActiveDocument.Variables.Add _           Name:="FigNum", Value:=0     End If

' figure to jump to     iJumpTo = ActiveDocument.Variables("FigNum") + 1

' get number of shapes     iShapeCount = ActiveDocument.Shapes.Count     If iJumpTo > iShapeCount Then iJumpTo = 1

If iShapeCount > 0 Then         'Display the shape         ActiveDocument.Shapes(iJumpTo).Anchor.Select         'Select the shape         ActiveDocument.Shapes(iJumpTo).Select     End If     'Set the variable for next time     ActiveDocument.Variables("FigNum") = iJumpTo End Sub

Cette macro utilise une variable de document pour garder une trace du dernier graphique sélectionné. Si vous avez besoin de rechercher assez souvent des graphiques flottants, cela signifie que vous pouvez affecter cette macro à un bouton de la barre d’outils ou à une touche de raccourci et rechercher chaque graphique flottant dans votre document, tour à tour.

_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 (1771) 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-Searching_for_Floating_Graphics [Recherche de graphiques flottants].