❶ 如何实现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如何批量插入图片
①批量插入图片。这个都会，不用详细介绍了。
②快速分页，每张图片一页。用宏来处理。
工具→宏→录制新宏→键盘（单击选键盘这个按钮）→请按新快捷键（我指定的是ctrl＋L），直接用键盘上的组合键按下去即可→单击“指定”→关闭→用方向箭头，把光标移到第一张图片的右侧，按一下ctrl＋enter（这个组合键是插入分页符），然后将光标用方向箭头移到第二张图片的右侧。单击停止录制。
然后联系按
ctrl＋L即可将无论多少张的图片均单独设置为一页。
我已经尝试了，很轻松的。
不明白的继续联系我的QQ。
❸ Word批量完成图片插入及文字编辑
如果你使用word2003版的就有办法解决，方法如下【先看最后一条】：
1、新建word文档一个
2、选中所有图片，用鼠标拖拽第一张图片并保持拖拽状态，按alt+tab组合键切换到word文档，鼠标拖拽到正文部分，放开鼠标左键，即可将所有图片一次性插入word文档中；
3、ctrl+h调出替换对话框，查找内容输入：(^g)
替换为输入：\1^t^p
高级或更多选择“使用通配符”，点击全部替换
4、ctrl+a选中全文，点击“表格”→“插入”→“表格”即可将所有图片放到一个两列的表格的第一列中，然后在第一个第一个中输入你的文字。
5、文字输入完成后按住shift键的同时按方向键的→键选中该单元格，ctrl+c复制
6、鼠标放到第一行第二列上边线上一点点，鼠标变成向下的黑箭头时点击鼠标左键，ctrl+v粘贴即可
【7、图片大小的调整，你可以先用ps软件的批处理功能将图片提前处理到符合你要求的尺寸，然后再用上述方法操作】
❹ word文档如何批量插入图片
您好，方法
1、首先我们打开word文档，现在文档中是空白的，没有文字也没有图片。
2、我们在上方点击【插入】-【图片】选择【本地图片】。
3、我们在图片文件夹里，把所有的图片一起选中，点击【打开】。
4、发现插入进行来的图片大小一样，
5、我们拖动图片边上的四个点，即可调整图片大小，
6、因为图片的高度问题，这里一页纸上默认显示两张图片。把所有的图片宽度调整成一样的大小就完成了。
❺ 怎样在WORD中批量插入图片
很简单
空白文档批量插入众图片，这个不用说了吧
然后每个图片后替换加上一个回车符即这样查找替换:
^g
→^&^p
然后全选图片，
点工具栏的
插入表
命令。
❻ 怎样往word文件上批量添加图片（要每页一张的）
摘要 亲您好，您可以点击插入菜单-图片-来自文件(将您要批量插入的图片放入一个文件夹,用鼠标点击第一张图片按住shift再点击最后一张图片,松开shift点击插入即可)如果您的图片统一大小相同,在文件菜单找到页面设置调整页面大小就可以实现每页一张的添加效果
❼ word中怎么能批量插入图片
总体上使用邮件合并的方法。详见有关教程。
这里想介绍的是，邮件合并需要的照片文件名数据表，可以快速生成。方法也简单,
把所有照片集中在一个文件夹中，并在这个文件夹新建一个文本文件，文件名任意，在文档里面输入一行文字:
dir /B > pic.txt
保存并关闭，将扩展名改为“.cmd”，双击这个文件，表面毫无反应，但它在这个文件夹中自动生成了一个文件“pic.txt”，打开它，去掉里面的无关内容，复制到数据表中，再编辑成你需要的格式，可免去输入文件名之苦。
有了数据表，你的任务3分钟就可以完成。
❽ Word批量插入照片的操作
1. 首先在存储图片的文件中调整好图片的顺序（可以通过点击名称顺序或者逆序排列），然后选中全部图片拖入Word。注意：这里要拖入才不会打乱在文件夹中的顺序。
2.选中第一张图并调整图片到合适大小，点击上方任务栏中的图片工具->格式，找到调整好的图片的高度，Ctrl+C复制。
3.选中第二张图，点击上方任务栏中的图片工具->格式，找到高度栏，Ctrl+V粘贴刚刚复制的高度数值，然后回车，完成第二张图的尺寸调整。
4.接下来调整其他图片就很简单了。选中需要调整的第三张图，然后按F4，即可完成对第三张图的尺寸修改。其他图也通过选中+F2完成尺寸修改。
5.将调整好尺寸的图按照以下形式排布，具体做法是光标放在在第二张图前面然后回车，光标放在在第三张图前面然后回车，光标放在在第四张图前面然后回车……
6.同时按住Ctrl+A完成对图片的全选，然后点击上方任务栏中的插入->表格->文本转换成表格，弹出来的对话中选择确定。
7.生成填充了图片的表格之后，选中整个表格内容，同时按住Ctrl+C，然后选中需要插入图片的表格，同时按住Ctrl+V，即可实现批量向表格添加图片。
❾ Word如何批量插入图片
插入图片——选择所有你要插入的图片即可~！