Note: The other languages of the website are Google-translated. Back to English

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

docファイル名1の画像を挿入

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

docファイル名2の画像を挿入


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

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

Kutools for Word : 100以上の便利なWordアドインがあり、60日以内に制限なしで無料で試すことができます. 

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

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

docファイル名3の画像を挿入

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

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

docファイル名4の画像を挿入

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

docファイル名5の画像を挿入

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


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

 

Kutools For Word-100を超えるWordの高度な機能で50%の時間を節約

  • 複雑で繰り返される操作は、数秒でXNUMX回の処理で実行できます。
  • 複数の画像をフォルダ間でWord文書に一度に挿入します。
  • フォルダ間で複数のWordファイルをマージして、希望の順序でXNUMXつに結合します。
  • 見出し、セクション区切り、またはその他の基準に従って、現在のドキュメントを個別のドキュメントに分割します。
  • DocとDocx、DocxとPDFの間でファイルを変換し、一般的な変換と選択のためのツールのコレクションなど...
コメントを並べ替える
コメント (6)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
buenas noches amigo me haservidomuchosuinformaciónsinembargomesurgeuna duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
ハイロ・アギレー
このコメントは、サイトのモデレーターによって最小化されました
どのコード行を変更し、画像の前にファイルパスを書き込む方法、別名キャプション(ファイル名)は下ではなく上にあります。
John Redfern
このコメントは、サイトのモデレーターによって最小化されました
選択あり
.Text = xFile
.InlineShapes.AddPicture xPath& "\"&xFile、False、True
.InsertAfter vbCrLf
.MoveDown wdLine

最後に
elmohy
このコメントは、サイトのモデレーターによって最小化されました
.Text=xFileの後にこの.MoveDownwdLineを追加する必要があります
シラール
このコメントは、サイトのモデレーターによって最小化されました
うわーこれは素晴らしいです! ファイル名だけが必要だったので、.Text行から "xPath&" \ "&"を削除しましたが、これは完全に機能しました。 これをありがとう!
James
このコメントは、サイトのモデレーターによって最小化されました
追加するファイル名が10を超えると問題が発生します。

pic1
pic10
pic11
pic12
pic2
pic3
pic4
pic5..。
JM
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0  文字
推奨される場所