照片批量导入word word邮件合并导入照片
怎样将图片批量导入到WORD中？
2、此时你可以从[查找范围]（左边的黑色小三角下拉列表或者下方的位置）进入到你的图片存放位置（此时应能看到缩略图了）；2、①、按住Ctrl键不放，移动鼠标到你所需插入的图片，单击左键选中若干所需的图片，选完才可以放开Ctrl键，然后点“插入”即可在word中插入大批量图片；最后介绍一种最简单、最懒的方法（我就是用这种的）：3、①、打开Word;3、②、将所需图片选中（选取的方法参照2），然后移动鼠标至选中的图片任意一张的上方，按住鼠标左键不放将图片“拖/拉”到Word文档中，此时所有选中的图片均“拖/拉”到了文档之中了；
如何将大量照片按照顺序一次性导入WORD文档中？
= ActiveDocument；图片路径2(n) :\tt\jbt\插入图片\图片\*；n = = nn = To 使用步骤2;= n"###################################################################"##################第二部分； = 0图4 + 1 >While 图4 ＂＂ n Preserve ：将本段代码从sub到end sub，全部粘到代码框最后的空白处；"图片数量最大值 = Dir(＂I;= ＂I:\tt\jbt\插入图片\图片2\＂图3 Resume NextDim n， 图片路径1（)， 图片路径2（)， 图片路径3（)， 图片路径4（)， 图片数量最大值Dim myTable n > 图片数量最大值 = Dir()LoopIf 使用步骤3; Table"ReDim Preserve 图片路径1(1 = ＂I:\tt\jbt\插入图片\图片4\＂图3 I；新建一个一行两列表格Set myTable :\tt\jbt\插入图片\图片3\*.jpg＂ .jpg＂)Do n) :2017.06; n > 图片数量最大值 图片数量最大值 = 0图3 = + 1 图片路径3(1 To n) 图片路径3(n) = )Do While To ＂ 。
"说明； ：获取每个文件夹下所有jpg图片名，写入相应数组#######"###################################################################n = 1 ReDim Sub 批量添加图片（）".jpg＂)Do n + = 0图2 ：代码按最直观的逻辑写的；= n = Dir()LoopIf As = n ＂While 图1 ＂＂ n + 1 While 图2 ＂＂ n 图片数量最大值 Then 图片数量最大值 & 图4 图4 = ###################################################################"Dir(＂Dir()LoopIf n 图片数量最大值 Then 图片数量最大值 nn  ，也方便大家使用修改； Then Dir()LoopIf n Then ReDim Preserve 图片路径4(1 & 图2 图2 = >0图1 = ：插入图片到word表格中###################"= ＂I:\tt\jbt\插入图片\图片\＂ &。
"On Error 图1 ReDim Preserve 图片路径2(1 n) 图1 = Dir(＂I:\tt\jbt\插入图片\图片4\*；图3 #######第一部分：按F5执行代码；nn :\tt\jbt\插入图片\图片3\＂ &.Tables.Add(Range:=ActiveDocument.Range(Start:=0, End:=0), NumRows:=1, NumColumns:=2）"设定后续操作的目标表格为文档的第一个表格Set myTable = ActiveDocument.Tables(1)n = 0Do While n < 图片数量最大值 n = n + 1 之前表格行数 = myTable.Rows.Count myTable.Rows.Last.Select Selection.InsertRowsBelow 4 "下方插入4行 "第一行两列，图片序号12 myTable.Cell(Row：=之前表格行数 + 1, Column:=1).Range.InsertAfter Text：=＂图片 1＂ myTable.Cell(Row：=之前表格行数 + 1, Column:=2).Range.InsertAfter Text：=＂图片 2＂ myTable.Cell(Row：=之前表格行数 + 3, Column:=1).Range.InsertAfter Text：=＂图片 3＂ myTable.Cell(Row：=之前表格行数 + 3, Column:=2).Range.InsertAfter Text：=＂图片 4＂ "第二行两列，插入图片并设置图片大小 myTable.Cell(Row：=之前表格行数 + 2, Column:=1).Range.InlineShapes.AddPicture FileName：= _ 图片路径1(n), LinkToFile:=False, SaveWithDocument:=True myTable.Cell(Row：=之前表格行数 + 2, Column:=2).Range.InlineShapes.AddPicture FileName：= _ 图片路径2(n), LinkToFile:=False, SaveWithDocument:=True myTable.Cell(Row：=之前表格行数 + 4, Column:=1).Range.InlineShapes.AddPicture FileName：= _ 图片路径3(n), LinkToFile:=False, SaveWithDocument:=True myTable.Cell(Row：=之前表格行数 + 4, Column:=2).Range.InlineShapes.AddPicture FileName：= _ 图片路径4(n), LinkToFile:=False, SaveWithDocument:=TrueLoopActiveDocument.Tables(1).Rows(1).Delete "刚开始建的表格中第一行是空行，删掉"###################################################################"######################第三部分：图片格式处理#######################"################################################################### "统一设置图片长宽，美化文档。
这里会卡好久时间，按需要是否添加本段代码For n = 1 To ActiveDocument.InlineShapes.Count ActiveDocument.InlineShapes(n).Height = 210 "设置高度 ActiveDocument.InlineShapes(n).Width = 110 "设置宽度Next nEnd Sub; To n） 图片路径1(n) I; = Dir(＂I:\tt\jbt\插入图片\图片2\*; ###################################################################"= n  .jpg＂)Do 图片路径4(n) ＂ .07"使用步骤1:word中ALT+11进入VBA宏界面；"程序功能：批量添加图片宏"作者Q:766110727"日期
word如何批量插入图片
此时弹出的插入图片对话框；2、此时你可以从[查找范围]（左边的黑色小三角下拉列表或者下方的位置）进入到你的图片存放位置（此时应能看到缩略图了），单击左键选中若干所需的图片，此时应该选择了自第一张图至最后一张图之间的所有图片、②，移动鼠标到你所需插入的图片；2，再点“插入”即可。
最后介绍一种最简单、最懒的方法（我就是用这种的）、按住Shift键选中第一幅需插入的图片（此时shift键也不要放开），拖动右边的滚动条至看见所需插入的图片最后一张；2:31、将Word打开，找到“插入”菜单——>“图片”——>“来自文件”，选完才可以放开Ctrl键，然后点“插入”即可在word中插入大批量图片、①，鼠标移动到所需插入的最后一张图片并单击选中、打开Word;3、②、将所需图片选中（选取的方法参照2），然后移动鼠标至选中的图片任意一张的上方，按住鼠标左键不放将图片“拖/拉”到Word文档中、①、按住Ctrl键不放...
如何将word里图片批量导入PPT
建议用PS 首先把这些图片放在一个文件夹里面（除了图片 最好不要包含别的文件或文件夹）然后打开PS 先把一张要修改大小的照片拖进PS 点开历史记录——点击动作——在点击该对话框最下面那一排图标的的第5个小图标——点击记录（第2个小图标就会显示红色 表示开始记录）————按Shift+Ctrl+S储存为——点击保存——点击 是——然后就会出现一个 JPEG选项的对话框 中间有个可以拖动的小图标 （左小右大）——修改好你要的大小后 确定——按Ctrl+w（关闭）——做到这一步之后就点击动作对话框最下面那排小图标的第一个 （点击后第二个图标不在显示红色 表示停止记录）———按Ait+f+u+b（可分开按 批处理快捷键）然后出现批处理对话框——点击 选取——找到照片所在的文件夹——确定—— 然后就可以去喝茶了 哈 大概2秒钟处理一张很快的 希望采纳 我输入的好辛苦啊 哈 谢谢
word图片批量链接
能否提供一个几页的sample，因为需要知道你这个文档图片和文件名称之间的关系，这关系到如何根据某图片找到与其对应的文件名，找到文件名才能到特定路径去创建对应的超链接，不知道我说的是否清楚，举个例子：你文档通篇格式是这样，图片下边紧接着一行是该图片的文件名，我就可以根据当前图片定位到文件名这样行得到文件名字符串，然后到路径里去定位超链接，但是如果通篇杂乱无章，有的文件名是在图片下边第二行或很多行，这就需要想别的办法了。
当然，如果你整篇文档插入3000张图片的顺序，完全是按照文件名排序插入的，我也就不需要查找对应的文件名，我只需要按顺序创建3000个超链接即可，但我估计不是这么简单的情况，请你给出细节，邮箱 liji1042000@yahoo.com.cn
-