Word enthält einige Befehle und Verknüpfungen, mit denen Sie in Ihren Dokumenten nach Grafiken suchen können. Leider eignen sich diese Suchmethoden nur zum Auffinden von Inline-Grafiken. Wenn Sie schwebende Grafiken finden möchten, haben Sie kein Glück. Da sie sich auf der Grafikebene und nicht im eigentlichen Dokument befinden, werden sie von Word so gut wie ignoriert.

Es gibt jedoch eine Möglichkeit, schwebende Grafiken mithilfe eines Makros zu finden. Ein Makro kann die schwebenden Grafiken in Ihrem Dokument untersuchen und nacheinander auswählen. Das folgende Makro macht genau das:

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

Dieses Makro verwendet eine Dokumentvariable, um zu verfolgen, welche Grafik zuletzt ausgewählt wurde. Wenn Sie häufig nach schwebenden Grafiken suchen müssen, können Sie dieses Makro einer Symbolleistenschaltfläche oder einer Tastenkombination zuweisen und nacheinander nach jeder schwebenden Grafik in Ihrem Dokument suchen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (1771) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier: