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_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（1771）は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス（Word 2007）用のこのヒントのバージョンを見つけることができます。以降）ここ：

linkSearching for FloatingGraphics。