批量導入帶有名字圖片word

1. 如何把圖片批量導入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版，可能和很多人的界面不一樣，但是大概位置是差不多了，如果我又標識不清楚，或者說得不明白的地方，歡迎大家在評論區里幫我提供建議。

2. 怎麼批量把圖片放到WORD里並附上該圖的名稱

Sub 選擇重命名文件夾()

Application.ScreenUpdating = False

With Application.FileDialog(msoFileDialogFolderPicker) '運行後出現標準的選擇文件夾對話框

If .Show Then myPath = .SelectedItems(1) Else Exit Sub '如選中則返回=-1 / 取消未選則返回=0

End With

If Right(myPath, 1) <> "" Then myPath = myPath & ""

'返回的是選中目標文件夾的絕對路徑,但除了本地C 盤、D 盤會以"C:"形式返回外，其餘路

徑無""需要自己添加

Getfd (myPath)

Application.ScreenUpdating = True

End Sub

Sub Getfd(ByVal pth)

On Error Resume Next

Dim strPath As String

'插入兩行

Columns("A:B").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

'設置B 行內容

Range("B1") = "目標名稱"

Range("B2").Select

ActiveCell.FormulaR1C1 = "=RC[1]&"" ""&RC[2]&"".JPG""" '設置B 行內容為目標名稱

Range("B2").Select

m = Range("C65536").End(xlUp).Row

Selection.AutoFill Destination:=Range("B2:B" & m) '填充B 行

'設置A 行內容為所選文件下所有圖譜名稱

Range("A1") = "原名稱"

strPath = pth & "\"

f = Dir(strPath & "*.jpg")

k = 1

Do While f <> ""

k = k + 1

Range("A" & k) = f

f = Dir

Loop

'調整AB 列寬

Cells.Select

Cells.EntireColumn.AutoFit '調整AB 列寬

'重命名

a = Cells(Cells.Rows.Count, 1).End(xlUp).Row + 3 'A 列最後可見單元的行號

For b = 2 To a

c = Range("a" & b).Value

cc = Range("b" & b).Value

Name strPath & c As strPath & cc '重命名

Next

MsgBox ("重命名完成")

End Sub

3. 怎麼批量把圖片放到word裡面去。

WPS批量導入圖片的方法如下：

1、打開一個需要枝核批量導入圖片的wps文檔，並在界面左上角點擊「插入」按鈕。

4. word文檔如何批量插入圖片

您好，方法
1、首先我們打開word文檔，現在文檔中是空白的，沒有文字也沒有圖片。
2、我們在上方點擊【插入】-【圖片】選擇【本地圖片】。
3、我們在圖片文件夾里，把所有的圖片一起選中，點擊【打開】。
4、發現插入進行來的圖片大小一樣，
5、我們拖動圖片邊上的四個點，即可調整圖片大小，
6、因為圖片的高度問題，這里一頁紙上默認顯示兩張圖片。把所有的圖片寬度調整成一樣的大小就完成了。

5. 如何把大量照片快速全部導入到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

6. word批量導入圖片並自動排版

word批量導入圖片並自動排版方法如下：

工具：聯想筆記本電腦e460、Windows10系統答帶、WPS Office 2018.8.24.20794。

1、打開一個需要批量圖片知鏈排版的word文檔，文檔中圖片排版無序，需要調整排版。

7. 怎樣在WORD中批量插入圖片

方法一：
1、單擊插入---->圖片，如圖所示；
2、在彈出「插入圖片」對話框中選擇存放圖片的位置，此時按住
ctrl
鍵，你就可以用滑鼠選擇多張圖片了；或者你也可以按 shift
鍵，然後單擊選中一張圖片，再單擊另一張圖片，則自動選中了這兩張圖片為對角線的矩形范圍內的所有圖片；或者直接按快捷鍵 ctrl+a
全選，全部選中。最後「插入」即可，如圖所示。
方法二：
1、打開存放圖片的位置，然後選中你的插入的全部圖片；
2、在按下滑鼠右鍵，選擇「復制」；
3、word文檔中，按下滑鼠再按下右鍵，選擇「粘貼」，即可快速想插入的多個圖片。

8. 怎樣將圖片批量導入到WORD中

2、此時你可以從[查找范圍]（左邊的黑色小三角下拉列表或者下方的位置）進入到你的圖片存放位置（此時應能看到縮略圖了）； 2、①、按住Ctrl鍵不放，移動滑鼠到你所需插入的圖片，單擊左鍵選中若干所需的圖片，選完才可以放開Ctrl鍵，然後點「插入」即可在word中插入大批量圖片； 最後介紹一種最簡單、最懶的方法（我就是用這種的）：3、①、打開Word； 3、②、將所需圖片選中（選取的方法參照2），然後移動滑鼠至選中的圖片任意一張的上方，按住滑鼠左鍵不放將圖片「拖/拉」到Word文檔中，此時所有選中的圖片均「拖/拉」到了文檔之中了；

9. 關於圖片批量導入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會進入無響應狀態。圖片越多，無響應的時間越長。

10. word文檔中每一張圖片都帶有名字,怎麼批量帶名稱導出圖片

以WPS2019版本為例：

打開文檔，找到任意一張圖片，單復擊選中該圖片，滑鼠右鍵單擊【提取圖片】，

目前不支持批量修改名稱的功能，您需要修改名稱的，可以導出圖片後，找到該文度件夾中，對每個圖片進行編輯文件名，即可、