フローティンググラフィックスの検索（Microsoft Word）
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
このマクロは、ドキュメント変数を使用して、最後に選択されたグラフィックを追跡します。フローティンググラフィックをかなり検索する必要がある場合は、このマクロを linkクイックアクセスツールバーまたはショートカットキーに割り当てて、ドキュメント内の各フローティンググラフィックを順番に検索できることを意味します。 。
注：
このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。
_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。
（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（10442）は、Microsoft Word 2007、2010、2013、および2016に適用されます。Wordの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。