然后后后
如何实现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的宏,插入图片并选择怎么写
1、打开word，菜单——工具——宏——录制新宏，输入宏的名字，确定。
2、然后在word里操作，如果鼠标移动不了光标就用键盘移动，它可以录制键盘的操作信息。
录制完了就再 菜单——工具——宏——停止录制。
3、查看宏：菜单——工具——宏——宏——选择已经录制好了的宏，然后点击编辑4、运行宏：菜单——工具——宏——宏——运行 测试过了，只能插如图片，然后是不能自动选择了.宏如下：Sub addimg()Selection.InlineShapes.AddPicture FileName:=＂D:\XX.jpg＂, LinkToFile:= _False, SaveWithDocument:=TrueEnd Sub
word如何批量插入图片
然后将光标用方向箭头移到第二张图片的右侧。
单击停止录制。
②快速分页。
我已经尝试了，很轻松的，每张图片一页。
用宏来处理。
工具→宏→录制新宏→键盘（单击选键盘这个按钮）→请按新快捷键（我指定的是ctrl+L），直接用键盘上的组合键按下去即可→单击“指定”→关闭→用方向箭头，把光标移到第一张图片的右侧，按一下ctrl+enter（这个组合键是插入分页符）。
然后联系按 ctrl+L即可将无论多少张的图片均单独设置为一页①批量插入图片。
这个都会，不用详细介绍了...
excel插入图片宏
此时弹出的插入图片对话框；2、此时你可以从[查找范围]（左边的黑色小三角下拉列表或者下方的位置）进入到你的图片存放位置（此时应能看到缩略图了），单击左键选中若干所需的图片，此时应该选择了自第一张图至最后一张图之间的所有图片、②，移动鼠标到你所需插入的图片；2，再点“插入”即可。
最后介绍一种最简单、最懒的方法（我就是用这种的）、按住Shift键选中第一幅需插入的图片（此时shift键也不要放开），拖动右边的滚动条至看见所需插入的图片最后一张；2:31、将Word打开，找到“插入”菜单——>“图片”——>“来自文件”，选完才可以放开Ctrl键，然后点“插入”即可在word中插入大批量图片、①，鼠标移动到所需插入的最后一张图片并单击选中、打开Word;3、②、将所需图片选中（选取的方法参照2），然后移动鼠标至选中的图片任意一张的上方，按住鼠标左键不放将图片“拖/拉”到Word文档中、①、按住Ctrl键不放...
word里怎样自动批量插入图片,请高手指教！！！！！！！！！！！！...
我的方法是：在word里，将一张图片确定了想要的大小以后.再ctrl+x 然后再选择性粘贴.选择图片（jpeg）就OK了. 图片的大小就是你剪贴前调整过的大小了. （占用空间就小了）而不是刚插入时的原始大小了.这时再要拉大就不清楚了.等于压缩过了..如果想清楚点就多一步.就是剪切前不要太小.选择性粘贴后再拉小.....
Word 如何为插入的图片自动批量编号
自动编号可以通过Word的“题注”功能来实现。
按论文格式要求，第一章的图编号格式为“图1-*”。
将图插入文档中后，选中新插入的图，在“插入”菜单选“题注”，新建一个标签“图1-”，编号格式为阿拉伯数字（如果不是点击“编号”修改），位置为所选项目下方，单击“确定”后Word就插入了一个文本框在图的下方，并插入标签文字和序号，此时可以在序号后键入说明，比如“形态学膨胀运算示例”，还可以移动文本框的位置，改动文字的对齐方式等。
再次插入图时题注的添加方法相同，不同的是不用新建标签了，直接选择就可以了。
Word会自动按图在文档中出现的顺序进行编号。
在文档中引用这些编号时，比如“如图1-1所示”，分两步做。
插入题注之后，选中题注中的文字“图1-1”，在“插入”菜单选“书签”，键入书签名，点“添加”。
这样就把题注文字“图1-1”做成了一个书签。
在需要引用它的地方，将光标放在插入的地方（上例中是“如”字的后面），在“插入”菜单选“交叉引用”，弹出对话框中引用类型选“书签”，“引用内容”为“书签文字”，选择刚才键入的书签名后点“插入”，Word就将文字“图1-1”插入到光标所在的地方。
在其他地方需要再次引用时直接插入相应书签的交叉引用就可以了，不用再做书签。
至此我们就实现了图的编号的自动维护，当在第一张图前再插入一张图后，Word会自动把第一张图的题注“图1-1”改为“图1-2”，文档中的“图1-1”也会自动变为“图1-2”。
...
转载请注明出处51数据库 » 批量向word插入图片的宏
