Word ドキュメントに含まれる画像の数をカウントするには、どうすればよいですか？

著者Xiaoyang変更日2025-11-05

Word ドキュメントを扱う際、含まれる画像の正確な数を把握することは、提出基準の遵守、レポート作成時のコンテンツ管理、および編集・出版に向けたドキュメント構造の整備において極めて重要です。特に長文や複雑なドキュメントでは、画像を手作業で一つひとつ数えるのは非常に時間がかかり、ヘッダーやフッター、フローティングオブジェクト内に埋もれた画像を見落とすリスクも高まります。そのため、インライン画像やフローティング画像、さらには複数ファイルにまたがる画像を効率的にカウントする方法を習得すれば、大幅な時間節約とドキュメントの正確性向上が実現できます。

本チュートリアルでは、インライン画像やフローティング図形など、Word に含まれるさまざまな画像オブジェクトを効率的にカウントする実用的な方法をご紹介します。これらの手法を使えば、単一のドキュメントだけでなく複数ファイルにわたっても素早く画像数を把握でき、ドキュメント管理や品質管理の効率化に大きく貢献します。

検索と置換機能でインライン画像の数をカウントする

Kutools for Word を使用して複数のドキュメントでインライン画像の数をカウントする

VBA コードでインライン画像とフローティング図形の両方の数をカウントする

検索と置換機能でインライン画像の数をカウントする

検索と置換機能を使えば、インライン画像を瞬時にカウントできます。これは、単一ドキュメント内で画像の件数を即座に確認したいときに特に便利です。インライン画像とは、テキスト文字のように振る舞い、周囲のテキストと一緒に流れる画像のことです。ただし、この方法ではテキストボックスや描画図形、「前面に配置」された画像など、フローティング図形はカウントされません。コンプライアンスチェックやレイアウトレビューなどで、通常の画像挿入の件数を素早く把握したい場合に最適です。

クリックしてホーム＞検索＞詳細検索。
検索と置換ダイアログボックスで、検索対象タブに移動します。「検索する文字列」ボックスに、インライン画像を含むグラフィックを表す特殊コードである^gを入力します。ドキュメントの本文を検索するには、検索範囲ドロップダウンからメイン文書を選択してください。検索範囲。
Word は、指定した条件に一致するインライン画像の総数を即座に報告し、その件数をダイアログボックスの下部に表示します。ハイライトされた件数は、ドキュメント本文に含まれるグラフィック（インライン画像）の数を示しています。

ヒントと注意点：この方法ではインライン画像のみがカウントされ、段落にアンカーされた画像や図形として挿入されたフローティングオブジェクトは含まれません。より包括的なカウントが必要な場合は、後述の VBA ソリューションをご検討ください。また、検索を実行する際は、メイン文書（ヘッダーやフッターなどではない）の正しいセクション内であることをご確認ください。これらの領域に含まれる画像はカウント対象外となります。

Office Tab

Word、Excel、PowerPoint などにタブ付きナビゲーションを実装し、ウェブブラウザのように1 つのウィンドウでスムーズに切り替えられます。

無料ダウンロード詳細を見る

Kutools for Word を使用して複数のドキュメントでインライン画像の数をカウントする

複数のドキュメントにわたって画像コンテンツを同時に評価する必要がある場合（例：レポート作成、一括編集、複数ファイルの提出要件対応）は、Kutools for Wordが効率的なソリューションです。一括置換機能を使えば、選択した複数のドキュメント内でインライン画像（^g コードを使用）を一括で検索・カウントするプロセスを自動化できます。手作業によるドキュメントレビューが遅く、繰り返しになりがちな状況で、特にその真価を発揮します。

Kutoolsタブで一括置換を選択すると、専用ダイアログが開きます。
一括検索と置換ダイアログボックスで、以下のように検索を設定します。
1. クリックして行を追加し、新しい検索ルールを挿入します。
2. 新しい行の検索対象フィールドに^gを入力してください。これにより、Word 内のすべてのインライン画像プレースホルダーを対象に検索できます。
3. クリックして追加し、ファイルを追加またはフォルダーを追加を選択して、分析したいドキュメントを取得してください。どちらのオプションでも、必要に応じて複数のWord ドキュメントを一度に選択できます。
4. クリックして検索を実行し、一括カウント処理を開始します。
システムはダイアログボックス内の結果プレビュータブに切り替わります。ここでは、選択した各ドキュメントに含まれるインライン画像の詳細な件数を確認でき、画像に関する要件を満たしているか、または不足しているファイルを簡単に特定できます。結果を確認したら、閉じるをクリックして終了します。

この一括処理を使えば、個別に各ドキュメントを開くことなく、複数ファイルの画像件数を瞬時に把握できます。一貫したフォーマットが求められるドキュメントセットを扱う編集者や研究者に最適です。

Word で同じ作業をもっとスピーディーにこなしたいですか？ぜひKutools for Word をお試しください。日々の業務がぐっとラクに。

ダウンロード詳細はこちら

VBA コードでインライン画像とフローティング図形の両方の数をカウントする

前述の2 つの方法はインライン画像に限定されますが、VBA（Visual Basic for Applications）を使用すると、メイン文書本文内に存在するインライン画像とフローティング図形（図形として挿入された画像、ウォーターマークなど）の両方をカウントできます。この方法は、テキストとは独立して移動するフローティング画像やその他のオブジェクトを含むドキュメントにおいて、より包括的かつ正確なカウントを実現するのに役立ちます。さらに、特定のカウント要件に合わせてカスタマイズすることも可能です。

画像をカウントしたいドキュメントを選択するか、ドキュメントウィンドウ内にカーソルを置きます。次に、Alt+F11キーを押して、Microsoft Visual Basic for Applicationsエディターウィンドウを開きます。

VBA エディターで、挿入>標準モジュールをクリックして新しいモジュールを作成します。以下の VBA コードをこのモジュールにコピー＆ペーストしてください。

VBA コード：アクティブなドキュメント内のインライン画像とフローティング図形の数をカウントする

Sub CountImagesInDoc()
    Dim xInlines As Long
    Dim xFloaters As Long
    Dim sh As Shape
    Dim tbxs As Long
    Dim xPrompt As String
    On Error Resume Next
    xTitleId = "KutoolsforWord"
    With Application.ActiveDocument
        For Each sh In .Shapes
            If sh.Type = msoTextBox Then
                tbxs = tbxs + 1
            End If
        Next
        xInlines = .InlineShapes.Count
        xFloaters = .Shapes.Count - tbxs
    End With
    xPrompt = "Inline images:" & vbTab & xInlines & vbCr
    xPrompt = xPrompt & "Floating shapes:" & vbTab & xFloaters & vbCr
    xPrompt = xPrompt & vbTab & "Total:" & vbTab & (xInlines + xFloaters) & vbCr
    xPrompt = xPrompt & "Counts do not include headers and footers, etc."
    MsgBox xPrompt, vbInformation, xTitleId
    Set sh = Nothing
End Sub