Word文書の画像の数を数える方法は？

インライン画像とフローティングシェイプの両方を含む複数のグラフィックがWordドキュメントにある場合、ドキュメント全体でこれらのグラフィックの数を数えたいのですが、どうすれば画像の数をすばやく正確に取得できますか？

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

　 検索および置換 Wordの機能を使用すると、インライン画像の数をすばやく簡単に数えることができます。次のようにしてください。

1に設定します。 OK をクリックします。 ホーム > もう完成させ、ワークスペースに掲示しましたか? > 高度な検索、スクリーンショットを参照してください：

ドキュメントカウント画像1

2。の中に 検索および置換 ダイアログボックス、下 もう完成させ、ワークスペースに掲示しましたか? タブで、 ^g に 見つける テキストボックスをクリックして、 メイン文書 見つける ドロップダウンリスト、スクリーンショットを参照してください：

ドキュメントカウント画像2

3。そして、このWord文書のインライン画像の数が次のスクリーンショットのように表示されていることがわかります。

ドキュメントカウント画像3

VBAコードでインライン画像とフローティングシェイプの両方の数を数える

上記の方法では、インライン画像の数しかカウントできません。ドキュメントにフローティングシェイプがある場合、それらはカウントされません。次のVBAコードは、インライン画像とフローティングシェイプの両方をカウントするのに役立ちます。次のようにしてください。

1。を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。次に、をクリックします。 インセット > モジュール、以下のコードをコピーして、開いた空白のモジュールに貼り付けます。スクリーンショットを参照してください。

VBAコード：インライン画像とフローティングシェイプの両方の数を数えます。

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

3。コードを貼り付けたら、を押します F5 このコードを実行するためのキーを押すと、このWordドキュメント内のインライン画像とフローティングシェイプの数を示すプロンプトボックスが表示されます。スクリーンショットを参照してください。

ドキュメントカウント画像4