Word文書にファイル名で複数の画像を挿入するにはどうすればよいですか？

Word文書では、挿入機能を使用して、一度に複数の画像をすばやく挿入できます。 ただし、画像を挿入するときに、ファイルパスと名前をキャプションとして挿入する必要がある場合があります。 Wordファイルでこのタスクをどのように処理できますか？

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

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

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

次のVBAコードは、画像を挿入するときにキャプションとしてファイルパスと名前を挿入するのに役立ちます。次のようにしてください。

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

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

VBAコード：ファイル名で複数の画像を挿入します：

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

3。 次に、 F5 このコードを実行するためのキーを押すと、参照ウィンドウが表示されます。挿入する画像が含まれているフォルダを選択してください。スクリーンショットを参照してください。

4。 次に、をクリックします OK ボタンをクリックすると、選択したフォルダ内のすべての画像がWord文書に挿入され、ファイルのパスと名前がキャプションとして挿入されます。スクリーンショットを参照してください。

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

あなたが持っている場合 Kutools for Wordそのと 画像 この機能を使用すると、ファイルパスと名前を含む複数の画像をWord文書にすぐに挿入できます。

インストールした後 Kutools for Word、次のようにしてください。

1. 【送信】ボタンをクリックします。販売者は原則としてXNUMX日以内に回答を返信します。XNUMX日を過ぎても回答がない場合は、Artisanaryまでお問い合わせください。 クツール > 画像、スクリーンショットを参照してください：

2。 飛び出した 写真を挿入する ダイアログボックスで、以下の操作を行ってください。

• （1.）クリック ファイルの追加 or フォルダの追加 挿入する画像を選択するボタン。
• （2.）次に確認します 各画像のファイルパスをキャプションとして挿入します ダイアログボックスの左下にあるオプション。
• （3.）次にクリック インセット ボタン。

3。 画像を挿入すると、各画像のファイルパスと名前も挿入されます。スクリーンショットを参照してください。

クリックしてKutoolsfor Wordと無料トライアルを今すぐダウンロードしてください！

---

推奨される単語生産性ツール

 

Word用のKutools - Word用の100以上の高度な機能で、50%の時間を節約

• 複雑で繰り返される操作は、数秒でXNUMX回の処理で実行できます。
• 複数の画像をフォルダ間でWord文書に一度に挿入します。
• フォルダ間で複数のWordファイルをマージして、希望の順序でXNUMXつに結合します。
• 見出し、セクション区切り、またはその他の基準に従って、現在のドキュメントを個別のドキュメントに分割します。
• DocとDocx、DocxとPDFの間でファイルを変換し、一般的な変換と選択のためのツールのコレクションなど...

続きを読む 今すぐダウンロード 購入