Word文書内の画像の数を数えるにはどうすればよいですか？

Author: Xiaoyang Last Modified: 2025-05-23

Word文書内の画像の数を数えることは、品質管理、ガイドラインへの準拠、または単に整理のために役立つ場合があります。長文の文書で画像を手動で数えるのは面倒で、ミスが発生しやすいものです。幸いなことに、Word文書内の画像の数を迅速かつ正確に数えるための効率的な方法がいくつかあります。

このチュートリアルでは、画像の数を簡単に数えるための手順を説明し、文書をより効果的に管理するお手伝いをします。

検索と置換機能を使用してインライン画像の数を数える

Kutools for Wordを使用して複数の文書内のインライン画像の数を数える

VBAコードを使用してインライン画像とフローティング図形の数を数える

検索と置換機能を使用してインライン画像の数を数える

Wordの「検索と置換」機能を使用すると、インライン画像の数を素早く数えることができます。以下の手順に従ってください：

ホームタブをクリックし、検索＞高度な検索を選択します。
「検索と置換」ダイアログボックスで、「検索」タブの下にある「検索内容」テキストボックスに「^g」と入力します。次に、「検索場所」ドロップダウンリストから「メイン文書」を選択します。
文書内のインライン画像の数は、ダイアログボックスの下部に表示されます。

Office Tab: Word、Excel、PowerPointにタブインターフェースを提供します。

Navigate through documents using Office Tab

今すぐワークフローを強化しましょう。Office Tabについてさらに詳しく 無料ダウンロード

Kutools for Wordを使用して複数の文書内のインライン画像の数を数える

Kutools for Wordは、複数の文書にわたるインライン画像を数えるための迅速で効率的な方法を提供します。このツールは、選択したファイル内の画像プレースホルダー（^gで示される）のカウントを自動化することで、時間と労力を節約し、プロセスを簡素化します。

Kutools for Wordについて、AI 🤖を搭載し、100 以上の便利な機能を提供して作業を簡素化します。

今すぐダウンロード

「Kutools」タブで、「一括置換」を選択します。
「 一括検索と置換 」ダイアログボックスで、設定を以下のように構成します：
1. 「行を追加」をクリックして、インライン画像を見つけるためのルールを作成します。
2. 追加された行の「検索」フィールドに「^g」（インライン画像プレースホルダーを示す）と入力します。
3. 追加ボタンをクリックし、ファイルを追加またはフォルダーを追加を選択して、インライン画像を数えたい文書をインポートします。
4. 「検索」をクリックして、選択したすべての文書に対して検索およびカウント操作を実行します。
「一括検索と置換」ダイアログボックスが「結果のプレビュー」タブに切り替わり、そこでインライン画像の総数を確認できます。満足したら「閉じる」をクリックします。

これで完了です！選択した各文書内のインライン画像の数が一度に数えられ、表示されます。

Kutools for Word は、作業を効率化し、文書処理スキルを向上させる究極の Word アドインです。今すぐ入手してください！

VBAコードを使用してインライン画像とフローティング図形の数を数える

前述の方法ではインライン画像のみがカウントされ、文書内のフローティング図形は含まれません。インライン画像とフローティング図形の両方を数えるには、次のVBAコードを使用します。以下の手順に従ってください：

Alt + F11キーを押しながら押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。

「挿入 > モジュール」をクリックします。次のコードを空白のモジュールにコピーして貼り付けます：

Sub CountImagesInDoc()
    Dim xInlines As Long
    Dim xFloaters As Long
    Dim sh As Shape
    Dim tbxs As Long
    Dim msg As String
    With ActiveDocument
        For Each sh In .Shapes
            If sh.Type = msoTextBox Then tbxs = tbxs + 1
        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, "Kutools for Word"
End Sub