word批量插入图片变量

㈠ word批量插入图片及批量修改大小

以WPS 2019版为例

1. 打开文档，依次点击左上角“文件”—“选项”；

㈡ word怎么批量增加图片

答：先打开一个word文档，利用工具栏，在文档下面的工具栏中找到“插入图片”按钮点击，在弹出“插入图片”对话框中选择存放图片的位置，此时按住 Ctrl 键，你就可以用鼠标选择多张图片了或者你也可以按 Shift 键，然后单击选择多个图片，最后“插入”即可，当然如果你想要路径下全部是需插入的图片，那么你直接按快捷键 Ctrl+A 全选，全部插入即可

㈢ Word批量插入照片的操作

1. 首先在存储图片的文件中调整好图片的顺序（可以通过点击名称顺序或者逆序排列），然后选中全部图片拖入Word。注意：这里要拖入才不会打乱在文件夹中的顺序。
2.选中第一张图并调整图片到合适大小，点击上方任务栏中的图片工具->格式，找到调整好的图片的高度，Ctrl+C复制。
3.选中第二张图，点击上方任务栏中的图片工具->格式，找到高度栏，Ctrl+V粘贴刚刚复制的高度数值，然后回车，完成第二张图的尺寸调整。
4.接下来调整其他图片就很简单了。选中需要调整的第三张图，然后按F4，即可完成对第三张图的尺寸修改。其他图也通过选中+F2完成尺寸修改。
5.将调整好尺寸的图按照以下形式排布，具体做法是光标放在在第二张图前面然后回车，光标放在在第三张图前面然后回车，光标放在在第四张图前面然后回车……
6.同时按住Ctrl+A完成对图片的全选，然后点击上方任务栏中的插入->表格->文本转换成表格，弹出来的对话中选择确定。
7.生成填充了图片的表格之后，选中整个表格内容，同时按住Ctrl+C，然后选中需要插入图片的表格，同时按住Ctrl+V，即可实现批量向表格添加图片。

㈣ word中怎么能批量插入图片

总体上使用邮件合并的方法。详见有关教程。
这里想介绍的是，邮件合并需要的照片文件名数据表，可以快速生成。方法也简单,
把所有照片集中在一个文件夹中，并在这个文件夹新建一个文本文件，文件名任意，在文档里面输入一行文字:
dir /B > pic.txt

保存并关闭，将扩展名改为“.cmd”，双击这个文件，表面毫无反应，但它在这个文件夹中自动生成了一个文件“pic.txt”，打开它，去掉里面的无关内容，复制到数据表中，再编辑成你需要的格式，可免去输入文件名之苦。
有了数据表，你的任务3分钟就可以完成。

㈤ word批量贴图把批量图片，插入到有模版的word中

摘要 With picOpenDialog .Filters.Clear '清除所有文件筛选器中的项目

㈥ 怎样往word文件上批量添加图片（要每页一张的）

摘要 亲您好，您可以点击插入菜单-图片-来自文件(将您要批量插入的图片放入一个文件夹,用鼠标点击第一张图片按住shift再点击最后一张图片,松开shift点击插入即可)如果您的图片统一大小相同,在文件菜单找到页面设置调整页面大小就可以实现每页一张的添加效果

㈦ WORD批量插入图片每页4张图均匀分布

选中要插入的图片，一次性插入，但是使4张图片均匀分布在页面中的话，需要手动来进行调试！

㈧ 如何实现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中的表格怎么批量插入图片呢

把光标定的要插入图片的单元格当中，再点击“插入”菜单，指向插入图片单击，从文件夹里选择你要插入的图片，确定就行。