批量圖片分開放入多個word中

Ⅰ word文檔怎麼批量導入多個文檔不同的照片

插入-》圖片-》來自文件-》不要選中任意文件，ctrl+A
當然之前可能需要對文件名作一定的修改，構成特定的排序。

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

Ⅳ 如何將已編輯好的照片依次放入word中，一個照片對應一個word，如何批量進行

一張照片對應一個word文檔，或者一張照片單獨作為一頁，這需要可用宏代碼來實現，不難。以下是一張照片插入word後保存為doc文檔的。啟動Word，然後按Alt+F11打開宏代碼編輯器，然後把如下代碼粘貼到編輯器中，然後修改你的輸入和輸出目錄，然後按F5運行即可。

SubInsertPicAndSaveas()
DimInPathAsString
DimOutPathAsString
DimPosAsLong,FnameAsString,ExtAsString
InPath="C:我的照片集"'你的照片放在哪個文件夾下，自行修改成真實的
OutPath="C:Out"'Word插入一張照片後換名保存在哪個文件夾下，自行修改成真實的
IfDir(InPath,vbDirectory)=""Then
MsgBox"您指定的輸入目錄不存在！需重新指定真實存在的。",vbCritical+vbOKOnly,"消息"
ExitSub
EndIf
IfDir(OutPath,vbDirectory)=""Then
MsgBox"您指定的輸出目錄不存在！需重新指定真實存在的。",vbCritical+vbOKOnly,"消息"
ExitSub
EndIf
Selection.WholeStory
Selection.DeleteUnit:=wdCharacter,Count:=1

Fname=Dir(InPath&"*.*")
DoWhileFname<>""
Pos=InStrRev(Fname,".")
Ext=Mid(Fname,Pos+1)
Fname=Left(Fname,Pos)
IfInStr("jpgjpegbmpgifpngtif",LCase(Ext))Then'不是圖片文件就忽略了
Selection.InlineShapes.AddPictureFileName:=InPath&""&Fname&Ext,LinkToFile:=False,_
SaveWithDocument:=True
ActiveDocument.SaveAsFileName:=OutPath&""&Fname&"doc",FileFormat:=0,LockComments:=False,Password:="",AddToRecentFiles_
:=True,WritePassword:="",ReadOnlyRecommended:=False,EmbedTrueTypeFonts_
:=False,SaveNativePictureFormat:=False,SaveFormsData:=False,_
SaveAsAOCELetter:=False
Selection.WholeStory
Selection.DeleteUnit:=wdCharacter,Count:=1
EndIf
Fname=Dir()
DoEvents
Loop
MsgBox"處理完畢！更多批量處理功能，請參見《文件批量處理百寶箱V10.0》",vbInformation+vbOKOnly,"消息"
ActiveDocument.Saved=True
ActiveDocument.Close
Application.Quit
EndSub

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

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

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

可以在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）

利用Word郵件合並功能。先在Excel中建立數據源，然後在Word中建立模板，再合並，可以達到百圖百份文檔。