Word 文書にファイル名付きで複数の画像を挿入する方法は？

著者Xiaoyang変更日2025-01-07

Word 文書では、「挿入」機能を使えば、複数の画像を一度に簡単に挿入できます。ただし、画像の出典を明記することが重要なドキュメントやレポート、プレゼンテーションなどで、ファイルパスとファイル名をキャプションとして含める必要がある場合があります。

このチュートリアルでは、Word 文書に複数の画像を効率よく挿入し、それぞれのファイルパスとファイル名をキャプションとして自動追加する方法をご紹介します。これにより、画像をさらにスムーズに管理できるようになります。

VBA コードを使用してファイル名付きで複数の画像を挿入する

Kutools for Word を使用してファイル名付きで複数の画像を挿入する

VBA コードを使用してファイル名付きで複数の画像を挿入する

次の VBA コードを使えば、複数の画像をファイルパスとファイル名をキャプションとして同時に挿入できます。以下の手順に従ってください：

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

クリックして挿入>モジュールを選択し、開いたモジュールに次のコードを貼り付けます：

Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath, xFile As Variant
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDialog.Show = -1 Then
        xPath = xFileDialog.SelectedItems.Item(1)
        If xPath <> "" Then
            xFile = Dir(xPath & "\*.*")
            Do While xFile <> ""
                If UCase(Right(xFile, 3)) = "PNG" Or _
                    UCase(Right(xFile, 3)) = "TIF" Or _
                    UCase(Right(xFile, 3)) = "JPG" Or _
                    UCase(Right(xFile, 3)) = "GIF" Or _
                    UCase(Right(xFile, 3)) = "BMP" Then
                    With Selection
                        .InlineShapes.AddPicture xPath & "\" & xFile, False, True
                        .InsertAfter vbCrLf
                        .MoveDown wdLine
                        .Text = xPath & "\" & xFile & Chr(10)
                        .MoveDown wdLine
                    End With
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub

F5キーを押してコードを実行すると、画像が含まれるフォルダーを選択できる参照ウィンドウが表示されます。

画像を挿入するフォルダーを選択

クリックしてOKを押すと、選択したフォルダー内のすべての画像がWord 文書に挿入され、ファイルパスとファイル名がキャプションとして自動追加されます。

Kutools for Word を使用してファイル名付きで複数の画像を挿入する

Kutools for Wordを使えば、複数の画像をファイルパスとファイル名付きでWord 文書に効率的に挿入できます。この機能は時間を大幅に節約し、手動でファイル情報を入力するよりも正確性も確保されます。画像機能を使えば、この作業が簡単に完了します。

Kutools for Wordをインストールしたら、次の手順に従ってください：

クリックして、Kutools > マルチピクチャーを選択します。
表示された画像の挿入ダイアログボックスで、次の操作を行います：
- ファイルを追加またはフォルダーを追加をクリックして、挿入したい画像を選択してください。
- ダイアログボックスの左下にある各画像のファイルパスをキャプションとして挿入しますオプションをオンにしてください。
- 挿入ボタンをクリックすれば、画像を一括で挿入できます。
画像を挿入後、各画像のファイルパスとファイル名がキャプションとして追加されます。