批量把圖片名稱插入word

A. 求編一個程序，把照片批量插入到word文檔中

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

B. 關於office word的批量圖片及其圖片名插入並且排序的問題

1、打開WORD→插入→圖片→來自文件→選擇圖片保存位置→選定你要插入的圖片→確定
2、若批量粘貼掃描後的圖片順序被打亂，請設置對象格式，具體為：單擊圖片--滑鼠右鍵--設置對象格式--文字環繞--緊密型--確定。

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

D. 將多套圖片批量分別插入對應的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

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

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

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

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

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

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

F. 教你在Word 中批量快速插入圖片的技巧

教你在Word 2007中批量快速插入圖片的技巧

我們知道，對於某些特定的字元，可以通過「自動更正」的方法實現快速替換，其實圖片也是可以自動更正的，這在需要經常調用某些圖片時相當實用，這樣就不需要每次逐個手工插入了。這里以Word 2007為例進行說明，讓你在輸入「1」、「2」這些數字時，能夠自動替換為相關的.圖片（例如頻繁出現的公司LOGO圖片等）。

首先將相關的圖片插入到Word文檔的窗口中，然後按下「Ctrl+C」組合鍵將它們復制到剪貼板中備用。這一步至關重要，否則下面的操作將無法正常完成。

接著單擊Office按鈕打開「Word選項」對話框，然後切換到「校對」選項卡，在這里你會發現一個「自動更正選項」的按鈕，單擊後即可打開如圖所示的對話框，在「替換」後面的文本框中輸入圖片名稱「1」。此時我們會發現原來右下角的「添加」按鈕已經可以正常使用，接下來直接單擊「添加」按鈕，添加圖片就可以了。

需要提醒的是，如果前面的步驟沒有進行的話，那麼即使在「替換」下面的文本框中輸入了相關的字元，也會看到「添加」按鈕仍然呈現不可用的灰色狀態。

按照類似的步驟，你可以繼續添加常用的圖片到其他自動更正的項目，以後插入相關圖片時就方便多了（雖然「替換為」文本框中沒有任何反應，而且確認後「替換為」一列也只是顯示為「*」號，但這只是顯示的問題）。

以後，當我們在Word文檔中輸入1、2……這樣的數字時，按下回車鍵後，相關的圖片就會自動出現在Word文檔中，大大提高了工作效率。 ;

G. word如何將插入圖片名自動作為圖片標注

我們有個文件夾，裡面是圖片，每個圖片都 有名稱；如果在word中批量插入圖片,如何讓現有的圖片名稱成為word里的圖片標題呢？

首先，我們打開一個word文本（

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

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

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

J. Word 中批量快速插入圖片技巧步驟

Word 2007中批量快速插入圖片技巧步驟

我們知道，對於某些特定的字元，可以通過「自動更正」的方法實現快速替換，其實圖片也是可以自動更正的，這在需要經常調用某些圖片時相當實用，這樣就不需要每次逐個手工插入了。這里以Word 2007為例進行說明，讓你在輸入「1」、「2」這些數字時，能夠自動替換為相關的圖片（例如頻繁出現的公司LOGO圖片等）。

首先將相關的圖片插入到Word文檔的窗口中，然後按下「Ctrl+C」組合鍵將它們復制到剪貼板中備用。這一步至關重要，否則下面的操作將無法正常完成。

接著單擊Office按鈕打開「Word選項」對話框，然後切換到「校對」選項卡，在這里你會發現一個「自動更正選項」的按鈕，單擊後即可打開如圖所示的對話框，在「替換」後面的文本框中輸入圖片名稱「1」。此時我們會發現原來右下角的「添加」按鈕已經可以正常使用，接下來直接單擊「添加」按鈕，添加圖片就可以了。

需要提醒的是，如果前面的步驟沒有進行的話，那麼即使在「替換」下面的文本框中輸入了相關的字元，也會看到「添加」按鈕仍然呈現不可用的灰色狀態。

按照類似的.步驟，你可以繼續添加常用的圖片到其他自動更正的項目，以後插入相關圖片時就方便多了（雖然「替換為」文本框中沒有任何反應，而且確認後「替換為」一列也只是顯示為「*」號，但這只是顯示的問題）。

以後，當我們在Word文檔中輸入1、2……這樣的數字時，按下回車鍵後，相關的圖片就會自動出現在Word文檔中，大大提高了工作效率。 ;