❶ 怎样往word文件上批量添加图片（要每页一张的）
摘要
亲您好，您可以点击插入菜单-图片-来自文件(将您要批量插入的图片放入一个文件夹,用鼠标点击第一张图片按住shift再点击最后一张图片,松开shift点击插入即可)如果您的图片统一大小相同,在文件菜单找到页面设置调整页面大小就可以实现每页一张的添加效果
❷ 如何实现Word 中批量插入图片
Sub批量添加图片()
'程序功能：批量添加图片宏
'作者Q：766110727
'日期：2017.06.07
'使用步骤1：word中ALT+11进入VBA宏界面；
'使用步骤2：将本段代码从sub到endsub，全部粘到代码框最后的空白处；
'使用步骤3：按F5执行代码。
'说明：代码按最直观的逻辑写的，也方便大家使用修改。
'OnErrorResumeNext
Dimn,图片路径1(),图片路径2(),图片路径3(),图片路径4(),图片数量最大值
DimmyTableAsTable
'###################################################################
'#######第一部分：获取每个文件夹下所有jpg图片名，写入相应数组#######
'###################################################################
n=0
图1=Dir("I: tjbt插入图片图片*.jpg")
DoWhile图1<>""
n=n+1
ReDimPreserve图片路径1(1Ton)
图片路径1(n)="I: tjbt插入图片图片"&图1
图1=Dir()
Loop
Ifn>图片数量最大值Then图片数量最大值=n
n=0
图2=Dir("I: tjbt插入图片图片2*.jpg")
DoWhile图2<>""
n=n+1
ReDimPreserve图片路径2(1Ton)
图片路径2(n)="I: tjbt插入图片图片2"&图2
图2=Dir()
Loop
Ifn>图片数量最大值Then图片数量最大值=n
n=0
图3=Dir("I: tjbt插入图片图片3*.jpg")
DoWhile图3<>""
n=n+1
ReDimPreserve图片路径3(1Ton)
图片路径3(n)="I: tjbt插入图片图片3"&图3
图3=Dir()
Loop
Ifn>图片数量最大值Then图片数量最大值=n
n=0
图4=Dir("I: tjbt插入图片图片4*.jpg")
DoWhile图4<>""
n=n+1
ReDimPreserve图片路径4(1Ton)
图片路径4(n)="I: tjbt插入图片图片4"&图4
图4=Dir()
Loop
Ifn>图片数量最大值Then图片数量最大值=n
'###################################################################
'##################第二部分：插入图片到word表格中###################
'###################################################################
'新建一个一行两列表格
SetmyTable=ActiveDocument.Tables.Add(Range:=ActiveDocument.Range(Start:=0,End:=0),NumRows:=1,NumColumns:=2)
'设定后续操作的目标表格为文档的第一个表格
SetmyTable=ActiveDocument.Tables(1)
n=0
DoWhilen<图片数量最大值
n=n+1
之前表格行数=myTable.Rows.Count
myTable.Rows.Last.Select
Selection.InsertRowsBelow4'下方插入4行
'第一行两列，图片序号12
myTable.Cell(Row:=之前表格行数+1,Column:=1).Range.InsertAfterText:="图片1"
myTable.Cell(Row:=之前表格行数+1,Column:=2).Range.InsertAfterText:="图片2"
myTable.Cell(Row:=之前表格行数+3,Column:=1).Range.InsertAfterText:="图片3"
myTable.Cell(Row:=之前表格行数+3,Column:=2).Range.InsertAfterText:="图片4"
'第二行两列，插入图片并设置图片大小
myTable.Cell(Row:=之前表格行数+2,Column:=1).Range.InlineShapes.AddPictureFileName:=_
图片路径1(n),LinkToFile:=False,SaveWithDocument:=True
myTable.Cell(Row:=之前表格行数+2,Column:=2).Range.InlineShapes.AddPictureFileName:=_
图片路径2(n),LinkToFile:=False,SaveWithDocument:=True
myTable.Cell(Row:=之前表格行数+4,Column:=1).Range.InlineShapes.AddPictureFileName:=_
图片路径3(n),LinkToFile:=False,SaveWithDocument:=True
myTable.Cell(Row:=之前表格行数+4,Column:=2).Range.InlineShapes.AddPictureFileName:=_
图片路径4(n),LinkToFile:=False,SaveWithDocument:=True
Loop
ActiveDocument.Tables(1).Rows(1).Delete'刚开始建的表格中第一行是空行，删掉
'###################################################################
'######################第三部分：图片格式处理#######################
'###################################################################
'统一设置图片长宽，美化文档。这里会卡好久时间，按需要是否添加本段代码
Forn=1ToActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(n).Height=210'设置高度
ActiveDocument.InlineShapes(n).Width=110'设置宽度
Nextn
EndSub
❸ 快速把多个文件夹的图片放进一个word
问题：一堆文件夹，每个文件夹有三到十一张图片，怎么快速把每个文件夹的图片放进一个word？
初学python的我思考了一下，尝试通过python实现自动化处理。大致思路是分两步走：
1、将每个文件夹图片整合到指定文件夹中
2、读取指定文件夹图片，再存入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、首先我们打开word文档，现在文档中是空白的，没有文字也没有图片。
2、我们在上方点击【插入】-【图片】选择【本地图片】。
3、我们在图片文件夹里，把所有的图片一起选中，点击【打开】。
4、发现插入进行来的图片大小一样，
5、我们拖动图片边上的四个点，即可调整图片大小，
6、因为图片的高度问题，这里一页纸上默认显示两张图片。把所有的图片宽度调整成一样的大小就完成了。
❻ 怎样在WORD中批量插入图片
方法一：
1、单击插入---->图片，如图所示；
2、在弹出“插入图片”对话框中选择存放图片的位置，此时按住
ctrl
键，你就可以用鼠标选择多张图片了；或者你也可以按 shift
键，然后单击选中一张图片，再单击另一张图片，则自动选中了这两张图片为对角线的矩形范围内的所有图片；或者直接按快捷键 ctrl+a
全选，全部选中。最后“插入”即可，如图所示。
方法二：
1、打开存放图片的位置，然后选中你的插入的全部图片；
2、在按下鼠标右键，选择“复制”；
3、word文档中，按下鼠标再按下右键，选择“粘贴”，即可快速想插入的多个图片。
❼ 多个文件夹中有多个图片，怎样快速把图片导入对应文件夹名的WORD中
假如要一次性在word中插入如下多张图片，应该如何完成呢?
方法1：先打开一个word文档，利用工具栏，在文档下面的工具栏中找到“插入图片”按钮点击，在弹出“插入图片”对话框中选择存放图片的位置，此时按住 Ctrl 键，就可以用鼠标选择多张图片了或者你也可以按 Shift 键，然后单击选择多个图片，最后“插入”即可，当然如果想要路径下全部是需插入的图片，那么直接按快捷键 Ctrl+A 全选，全部插入即可
方法2：先打开一个word文档，利用菜单栏，在打开的文档中，选择“插入”----->“图片”----->“来自文件”，在弹出“插入图片”对话框中选择存放图片的位置，此时按住 Ctrl 键，就可以用鼠标选择多张图片了即可，实际上在弹出“插入图片”对话框中做法跟上面方法1一样。
方法3：利用直接复制，利用鼠标右键想插入的图片的图标，打开存放图片的位置，然后选中插入的全部图片，跟着按下鼠标右键，选择“复制”，最后在打开的文档中，鼠标再按下右键，选择“粘贴”，即可快速想插入的多个图片.
方法4：利用菜单栏右键调出“图片”工具栏，然后点击“插入图片”，下面做法跟方法1，方法2一样，大家可以试试。
❽ 怎样往word文件上批量添加图片（要每页一张的）
摘要
亲，您好！您的问题我这边已经看到了，正在努力整理答案，稍后五分钟给您回复，请您稍等一下～
❾ 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、选中所有内容后设置居中排列——点击文件——选项——显示——段落标记——点击确定即可
