Suchen nach schwebenden Grafiken (Microsoft Word)
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: