word表格宏一键导入图片

❶ word如何设置宏批量插入图片到word表格里（每一行2到3个表格）

邮件合并功能，应该是不能实现的吧。
采用简单的VBA宏编程，针对具体的表格格式，很容易实现的。可以hi我。

❷ 怎么把图片插到word表格里面 word表格里面怎么插入图片

品牌型号：戴尔成就Vostro 3000

系统版本：windows 10

软件版本：WPS Office 2019

下面我们以wps office 2019软件为例，把照片粘贴到word文档的表格中操作如下：

1、光标点下要插入图片的表格单元格；

2、在文档上方的菜单栏中依次点：插入－－图片－－来自文件；

3、弹出存放照片的路径，然后点“打开”；

4、照片即插入到光标所在的单元格；

5、所插入的照片如果尺寸与单元格不合，可以对照片调大或调小的，点住照片四周的控制点进行拖动调节。图片格式是“嵌入型”的，控制点是黑色小方框；其它的格式控制点是空心小圆圈。

6、把照片调节与单元格的差不多大小即可。

以上就是把图片插到word表格的方法，你学会了吗？

❸ 如何在Word表格中，批量自动插入图片

我试了试，在word里似乎无法实现，不过在微软公司的另一个软件里能实现，不过依然没有你说的那样简单。我用的是publisher。在publisher里，插入一个表格（几乎跟在word里一样）然后执行“插入——图像点位符”插入图像占位符，并调整它使它适合表格式小。然后复制它，放到另一个表格里，然后选择这两个复制……这样制作出八个图像点位符，制作好之后点击图像点位符就能够导入图像了。这样比直接插入的好处是：所有的图像自动适合表格大小，而不用再手动调整。如果你用过Adobeindesign，你知道它是可以满足你的要求的，不过这个软件很大，使用起来也不是很方便。

❹ 求批量向word表格导入图片方法！

1、将Word打开，找到“插入”菜单——>“图片”——>“来自文件”,此时弹出的插入图片对话框；2、此时你可以从[查找范围]（左边的黑色小三角下拉列表或者下方的位置）进入到你的图片存放位置（此时应能看到缩略图了）；2、①、按住Ctrl键不放，移动鼠标到你所需插入的图片，单击左键选中若干所需的图片，选完才可以放开Ctrl键，然后点“插入”即可在word中插入大批量图片；2、②、按住Shift键选中第一幅需插入的图片（此时shift键也不要放开），拖动右边的滚动条至看见所需插入的图片最后一张，鼠标移动到所需插入的最后一张图片并单击选中，此时应该选择了自第一张图至最后一张图之间的所有图片，再点“插入”即可。最后介绍一种最简单、最懒的方法（我就是用这种的）：3、①、打开Word；3、②、将所需图片选中（选取的方法参照2），然后移动鼠标至选中的图片任意一张的上方，按住鼠标左键不放将图片“拖/拉”到Word文档中，此时所有选中的图片均“拖/拉”到了文档之中了；

❺ 如何在word 的表格中批量插入图片

1、例如：把网络经验的LOGO批量插入到表格每一个单元格里。

❻ 怎样用WORD的宏批量插入照片啊

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、选中所有内容后设置居中排列——点击文件——选项——显示——段落标记——点击确定即可

❽ 如何实现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文档的表格中批量插入指定的照片

邮件合并基本能满足你的要求

把这个模板放到和照片同一个文件夹中，如果照片名字不对，请自己修改公式

利用word邮件合并批量导入照片_网络文库

http://wenku..com/link?url=mErinreynG9hz6dDy5BcFz_AVc8XchbDLRh3y