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)的功能区界面中找到此技巧的版本。和更高版本)在这里: