如何按著名字批量導入圖片到word

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

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

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

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

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

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

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

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

C. 怎麼一次把多張圖片插入到word

具體操作步驟如下：

一、首先在存儲圖片的文件中調整好圖片的順序，然後選中全部圖片拖入Word。

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

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

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

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

F. 求批量向word表格導入圖片方法！

1、將Word打開，找到「插入」菜單——>「圖片」——>「來自文件」,此時彈出的插入圖片對話框；2、此時你可以從[查找范圍]（左邊的黑色小三角下拉列表或者下方的位置）進入到你的圖片存放位置（此時應能看到縮略圖了）；2、①、按住Ctrl鍵不放，移動滑鼠到你所需插入的圖片，單擊左鍵選中若干所需的圖片，選完才可以放開Ctrl鍵，然後點「插入」即可在word中插入大批量圖片；2、②、按住Shift鍵選中第一幅需插入的圖片（此時shift鍵也不要放開），拖動右邊的滾動條至看見所需插入的圖片最後一張，滑鼠移動到所需插入的最後一張圖片並單擊選中，此時應該選擇了自第一張圖至最後一張圖之間的所有圖片，再點「插入」即可。最後介紹一種最簡單、最懶的方法（我就是用這種的）：3、①、打開Word；3、②、將所需圖片選中（選取的方法參照2），然後移動滑鼠至選中的圖片任意一張的上方，按住滑鼠左鍵不放將圖片「拖/拉」到Word文檔中，此時所有選中的圖片均「拖/拉」到了文檔之中了；

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

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

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

I. 如何將大量照片按照順序一次性導入WORD文檔中

把圖片文件進行編號就可以了。如果是上千張圖，假設格式都是jpg，那麼就把第一張圖命名為0001.jpg，第二張命名為0002.jpg，……
用word正常的插入功能，一次選中這些圖片，就可以按編號的順序插入。

J. 怎麼批量把圖片放到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