Zoeken naar Drijvende Graphics

Word bevat een aantal opdrachten en snelkoppelingen die u in staat om te zoeken naar afbeeldingen in uw documenten. Helaas, deze methoden van zoeken zijn alleen goed voor het vinden van inline graphics. Als u wilt zoeken drijven grafiek, bent u pech; aangezien zij op de grafische laag en niet in de eigenlijke document, Word vrijwel negeert.

Er is een manier vindt u drijven grafiek met behulp van een macro, echter. Een macro kan de drijvende afbeeldingen in uw document onderzoekt en selecteert elk van hen op zijn beurt. De volgende macro doet precies dat:

Sub FindFigs ()
Dim varItem Zoals Variable
Dim bExists zoals Van Boole
Dim iShapeCount As Integer
Dim iJumpTo As Integer

'Zorgen voor variabele bestaat
bExists = False
Voor Elke varItem In ActiveDocument.Variables
Als varItem.Name = "FigNum" Dan
bExists = True
Exit voor
End If
Volgende varItem

'Initialiseren document variabele indien niet bestaat
Als Niet bExists Dan
ActiveDocument.Variables.Add _
Naam: = "FigNum", Waarde: = 0
End If

'Erachter te springen om
iJumpTo = ActiveDocument.Variables ("FigNum") + 1

'Get aantal vormen
iShapeCount = ActiveDocument.Shapes.Count
Als iJumpTo> iShapeCount Dan iJumpTo = 1

Als iShapeCount> 0 Then
'Geef het vorm
ActiveDocument.Shapes (iJumpTo) .Anchor.Select
'Selecteer de vorm
ActiveDocument.Shapes (iJumpTo) .Selecteer
End If
'Stel de variabele voor de volgende keer
ActiveDocument.Variables ("FigNum") = iJumpTo
End Sub

Deze macro maakt gebruik van een document variabele bij te houden welke grafische werd als laatste gekozen te houden. Als u nodig hebt om te zoeken naar het drijven grafiek nogal wat, betekent dit dat u deze macro aan de werkbalk Snelle toegang of een sneltoets toe te wijzen en te zoeken naar elke zwevende afbeelding in uw document, op zijn beurt.

WordTips is uw bron voor kosteneffectieve Microsoft Word training. (Microsoft Word is de meest populaire tekstverwerker in de wereld.) Deze tip (10.442) is van toepassing op Microsoft Word 2007 en 2010. U kunt een versie van deze tip voor de oudere menu-interface van Word hier vinden: Searching voor Drijvende Graphics.