批量图片分开放入多个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中建立模板，再合并，可以达到百图百份文档。