圖片文件名批量導入word

『壹』 如何把大量照片快速全部導入到word文檔中

如何將圖片批量導入word中並附加文件名？其實只要活用word的「宏」這一功能就好了，下面為大家詳細講解。
新建一個空白的word文檔。
工具——》宏——》vb編輯器——》打開this document ——》把下面代碼粘入編輯窗口——》保存
打開這個word文檔——》工具——》宏——》執行
下面的不用我說了，最後記得通配符批量替換照片就可以一行顯示多張了。

Sub InsertPic()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "F:\"
If .Show = -1 Then
For Each fn In .SelectedItems
Set mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True)
'按比例調整相片尺寸
WidthNum = mypic.Width
c = 10 '在此處修改相片寬,單位厘米
mypic.Width = c * 28.35
mypic.Height = (c * 28.35 / WidthNum) * mypic.Height
If Selection.Start = ActiveDocument.Content.End - 1 Then '如游標在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Selection.Text = Basename(fn) '函數取得文件名
Selection.EndKey
If Selection.Start = ActiveDocument.Content.End - 1 Then '如游標在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Next fn
Else
End If
End With
Set myfile = Nothing
End Sub
Function Basename(FullPath) '取得文件名
Dim x, y
Dim tmpstring
tmpstring = FullPath
x = Len(FullPath)
For y = x To 1 Step -1
If Mid(FullPath, y, 1) = "\" Or _
Mid(FullPath, y, 1) = ":" Or _
Mid(FullPath, y, 1) = "/" Then
tmpstring = Mid(FullPath, y + 1)
Exit For
End If
Next
Basename = Left(tmpstring, Len(tmpstring) - 4)
End Function

『貳』 多個word按名稱插入圖片，將不同圖片分別插入對應相同名稱的word中

可以在WORD中批量插入圖片即可。

『叄』 關於圖片批量導入word中並在圖片上方附加文件名的VBA代碼編輯

Sub 批量插入圖片()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "E:\工作文件" 『這里輸入你要插入圖片的目標文件夾
If .Show = -1 Then
For Each Fn In .SelectedItems
Selection.Text = Basename(Fn) '這兩句移到這里
Selection.EndKey
If Selection.Start = ActiveDocument.Content.End - 1 Then '如游標在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Set MyPic = Selection.InlineShapes.AddPicture(FileName:=Fn, SaveWithDocument:=True) '按比例調整相片尺寸
WidthNum = MyPic.Width
c = 6 '在此處修改相片寬,單位厘米
MyPic.Width = c * 28.35
MyPic.Height = (c * 28.35 / WidthNum) * MyPic.Height
If Selection.Start = ActiveDocument.Content.End - 1 Then '如游標在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Next Fn
Else
End If
End With
Set myfile = Nothing
End Sub
Function Basename(FullPath) '取得文件名
Dim x, y
Dim tmpstring
tmpstring = FullPath
x = Len(FullPath)
For y = x To 1 Step -1
If Mid(FullPath, y, 1) = "\" Or _
Mid(FullPath, y, 1) = ":" Or _
Mid(FullPath, y, 1) = "/" Then
tmpstring = Mid(FullPath, y + 1)
Exit For
End If
Next
Basename = Left(tmpstring, Len(tmpstring) - 4)
End Function
執行此代碼後，彈出的選擇對話框， 全選目標文件夾下的所有圖片文件之後，點擊確定。然後靜靜的等待電腦完成處理工作，次數word會進入無響應狀態。圖片越多，無響應的時間越長。

『肆』 如何把所有文件夾的名字復制到word

摘要 一、新建一個word文檔，選擇要復制的多個文件名，通過右鍵拉到word文檔中，選「在此創建超級鏈接」；

『伍』 如何將圖片批量導入word中並附加文件名

選擇插入圖片，選擇多張圖片，確定就可以了
不過文件名沒法導入

『陸』 如何把圖片批量導入word文檔用手機

將大量照片按照順序一次性導入word文檔中的方法如下（以windows10系統的word2016版為例，需要准備大量照片）：；1、將宣傳冊的照片放入一個文件夾中，並將第一張圖片命名為1.jpg，第二頁命名為2.jpg，依次類推。；2、打開word文檔，點擊界面上方的「插入」按鈕。；3、在隨後彈出的頁面中點擊「圖片」按鈕。；4、在接著自動彈出的界面中點擊「插入」按鈕即可。
首先審題，題主的需求是將WORD的圖片一次性的、大量的、修改為同一尺寸。

我有兩個方法，一個簡便，一個批量。

一、簡便方式——適用於10張以內的批量修改

首先打開預先准備了三張美圖文檔，哈哈

然後對其中一張圖片點選右鍵，在彈出的菜單中點選「大小和位置」

彈出一個對話框，為了統一修改尺寸，我們去掉「鎖定縱橫比」前面的勾，然後在「高度和寬度」里輸入需要的數值

這是第一張圖片修改好了，然後用滑鼠點選第二張圖片（不能框選，只能點選），按F4鍵（重復上一次命令的快捷鍵），以此類推，重復點選，F4，就能把這幾張照片統一修改了。

二、批量修改——適合大批量修改

有人會問，上面那個點點點的方法，還是麻煩，我要是有1000張圖片怎麼辦？

別急，再來教大家一個批量修改方法。

首先依舊是打開三張美圖文檔，我們開始演示

然後點開「文件菜單」，就在wore窗口的左上角，在下拉列表中選擇「選項」

在選項窗口，選擇「級—將圖片插入/黏貼為—四周型」

再在選項窗口，選擇「快速訪問工具欄—所有命令—選擇多個對象—添加」

這個時候先不急，我們先將文檔另存為，「保存類型選擇Word97-2003文檔」，為什麼呢？因為我們等下就要使用「選擇多個對象」工具，該工具不支持word2016以上版本，所以和我一樣，使用新版本的朋友，這一步請記得另存為。

然後我們看向WORD串口左上角，紅色框框里的圖片，點擊「選擇多個對象」按鈕

在彈出的窗口裡，我們選擇「全選」，點確定，我們第二個方法操作了這么多步，其實就是為了一次選中所有圖片。（WORD不能框選圖片）

好，到了這一步，我們已經框選了所有圖片了，不管是兩張，還是兩千張，接下來一次搞定，統統搞定。

點擊WORD窗口右上角，我紅色框框圈起來的位置，會彈出「設置圖片格式」窗口，和第一種簡便方法一樣，我們去掉「鎖定縱橫比」前面的勾，然後在「高度和寬度」里輸入需要的數值。

好，搞定啦！

【補充】我用的是WORD2019版，可能和很多人的界面不一樣，但是大概位置是差不多了，如果我又標識不清楚，或者說得不明白的地方，歡迎大家在評論區里幫我提供建議。

『柒』 多個文件夾中有多個圖片，怎樣快速把圖片導入對應文件夾名的WORD中

假如要一次性在word中插入如下多張圖片，應該如何完成呢?

方法1：先打開一個word文檔，利用工具欄，在文檔下面的工具欄中找到「插入圖片」按鈕點擊，在彈出「插入圖片」對話框中選擇存放圖片的位置，此時按住 Ctrl 鍵，就可以用滑鼠選擇多張圖片了或者你也可以按 Shift 鍵，然後單擊選擇多個圖片，最後「插入」即可，當然如果想要路徑下全部是需插入的圖片，那麼直接按快捷鍵 Ctrl+A 全選，全部插入即可

方法2：先打開一個word文檔，利用菜單欄，在打開的文檔中，選擇「插入」----->「圖片」----->「來自文件」，在彈出「插入圖片」對話框中選擇存放圖片的位置，此時按住 Ctrl 鍵，就可以用滑鼠選擇多張圖片了即可，實際上在彈出「插入圖片」對話框中做法跟上面方法1一樣。

方法3：利用直接復制，利用滑鼠右鍵想插入的圖片的圖標，打開存放圖片的位置，然後選中插入的全部圖片，跟著按下滑鼠右鍵，選擇「復制」，最後在打開的文檔中，滑鼠再按下右鍵，選擇「粘貼」，即可快速想插入的多個圖片.

方法4：利用菜單欄右鍵調出「圖片」工具欄，然後點擊「插入圖片」，下面做法跟方法1，方法2一樣，大家可以試試。

『捌』 如何將大量照片按照順序一次性導入WORD文檔中

將大量照片按照順序一次性導入word文檔中的方法如下（以windows10系統的word2016版為例，需要准備大量照片）：

1、將宣傳冊的照片放入一個文件夾中，並將第一張圖片命名為1.jpg，第二頁命名為2.jpg，依次類推。

『玖』 如何將JPG文件名稱批量倒出到excel表格或word文檔里

在菜單欄---插入---對象---由文件創建---瀏覽---找到需要插入的文件---勾選選擇為圖片或鏈接到文件--確定---ok搞掂
說明:如果勾選選擇圖片,可以再選擇更改圖標和名稱.
完成後只要在文欄當中雙擊就可以打開相應的文檔了.
希望是你找的

『拾』 將多套圖片批量分別插入對應的word中

打開word
插入——圖片——來自文件

選定所有需要的插入後
用回車鍵在各圖片間建立空行

新建一個空白的word文檔。
工具——》宏——》vb編輯器——》打開this document ——》把下面代碼粘入編輯窗口——》保存

打開這個word文檔——》工具——》宏——》執行 下面的不用我說了，最後記得通配符批量替換照片就可以一行顯示多張了。

Sub InsertPic()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "F:\"
If .Show = -1 Then
For Each fn In .SelectedItems
Set mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True)
'按比例調整相片尺寸
WidthNum = mypic.Width
c = 10 '在此處修改相片寬,單位厘米
mypic.Width = c * 28.35
mypic.Height = (c * 28.35 / WidthNum) * mypic.Height
If Selection.Start = ActiveDocument.Content.End - 1 Then '如游標在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Selection.Text = Basename(fn) '函數取得文件名
Selection.EndKey
If Selection.Start = ActiveDocument.Content.End - 1 Then '如游標在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Next fn
Else
End If
End With
Set myfile = Nothing
End Sub
Function Basename(FullPath) '取得文件名
Dim x, y
Dim tmpstring
tmpstring = FullPath
x = Len(FullPath)
For y = x To 1 Step -1
If Mid(FullPath, y, 1) = "\" Or _
Mid(FullPath, y, 1) = ":" Or _
Mid(FullPath, y, 1) = "/" Then
tmpstring = Mid(FullPath, y + 1)
Exit For
End If
Next
Basename = Left(tmpstring, Len(tmpstring) - 4)
End Function