Word包含一些命令和快捷方式，使您可以搜索文档中的图形。不幸的是，这些搜索方法仅适用于查找嵌入式图形。如果要查找浮动图形，则很不走运；由于它们位于图形层而不是实际文档中，因此Word几乎忽略了它们。

但是，有一种方法可以使用宏查找浮动图形。宏可以检查文档中的浮动图形，然后依次选择每个浮动图形。下面的宏就是这样做的：

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

该宏使用文档变量来跟踪最后选择的图形。如果您需要大量搜索浮动图形，这意味着您可以将此宏分配给工具栏按钮或快捷键，然后依次搜索文档中的每个浮动图形。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（1771）适用于Microsoft Word 97、2000、2002和2003。您可以在Word（Word 2007）的功能区界面中找到此技巧的版本。和更高版本）在这里：

搜索浮动图形。