如何將圖片和名稱批量導入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中

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

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

❹ word批量導入圖片和圖片名，並生成多列表格，怎麼操作

一、批量導入圖片：創建表格1、點擊插入——表格——選擇兩列一行即可

2、全選表格後右鍵設置屬性——點擊選項——取消自動重調尺寸以適應內容——點擊確定3、將滑鼠放在第一個單元格內——點擊插入——圖片——按住ctrl+a全選圖片——插入4、看一下效果，圖片是不是都在一列了，而且大小也相同了，選擇右側空白列——右鍵刪除列5、最重要的一步就是選中表格所有內容，按CTLR+H調出查找替換窗口在查找內容中輸入(?)

替換內容中輸入1^p

選中搜索選項中的使用通配符全部替換

2、將滑鼠放在新建的題注"圖1"後按 alt+f9 鍵顯示域代碼—— 按CTRL+H調出查找替換窗口

查找內容為：^g

替換內容為：^&^p^c

選擇全部替換完成後刪除一個多餘的域代碼

注意：前面已經做過查找替換的操作，別忘記通配符要去掉勾選！

3、按Ctrl+A全選整篇文檔後按Alt+F9更新域代碼，圖片下的編號已全部添加完成（全部顯示為圖1），再按一次F9刷新後所有編號自動更新

4、選中所有內容後設置居中排列——點擊文件——選項——顯示——段落標記——點擊確定即可

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

把圖片文件進行編號就可以了。如果是上千張圖，假設格式都是jpg，那麼就把第一張圖命名為0001.jpg，第二張命名為0002.jpg，……
用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

1，首先，同時按下鍵盤上的win+r鍵，輸入「cmd」，然後按下回車，打開命令行窗口。