当前位置：首页 > 科技 > 正文

【代工案例001】Word VBA批量插入图片

▎具体需求

手里面有上千个文件夹，每个文件夹里面包含2张照片，我们需要把这些图片插入到word文档的表格中。每3个文件夹作为一页。

文件夹示意


文件夹内部图片

最终效果

▎思路分析

首先需要获取文件夹的个数，根据文件夹个数确定一下word文档的表格总行数。接着插入空的表格，向表格里面写内容，并且插入图片。

▎源代码

实现功能的源代码在下方，由于文件隐私，不再推送原始附件。可以从下面的源代码中获取思路。

Sub 执行() If ActiveDocument.Tables.Count = 1 Then '删除上次数据 ActiveDocument.Tables(1).Delete End If '//获取文件夹，存入数组 Dim kr() Set fso = CreateObject("scripting.filesystemobject") With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then PathSht = .SelectedItems(1) Else Exit Sub End With Set f_num = fso.getfolder(PathSht) For Each fl In f_num.subfolders i = i + 1 ReDim Preserve kr(1 To i) kr(i) = fl.Path Next '//开始新建表格 tbl_rowcount = UBound(kr) + Int(UBound(kr) / 3) + 1 Dim tbl As Table Set tbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=tbl_rowcount, NumColumns:=4) '新建表格 tbl.Style = "网格型" Set tbl = ActiveDocument.Tables(1) tbl.Columns(1).Width = 1.27 * 28.35 '设置表格各列的列宽 tbl.Columns(2).Width = 2.13 * 28.35 tbl.Columns(3).Width = 3.3 * 28.35 tbl.Columns(4).Width = 11.58 * 28.35 tbl.Rows.Alignment = wdAlignRowCenter '居中对齐 tbl.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter '文字垂直居中 '//开始插入图片 For i = 1 To tbl_rowcount '对Word中的表格中的行进行循环。 If i Mod 4 = 1 Then '当表格的行号除以4的余数是1的时候，就是标题行。 tbl.Rows(i).Range.Font.Bold = True '字体加粗 tbl.Cell(i, 1).Range.Text = "序号" tbl.Cell(i, 2).Range.Text = "发布形式" tbl.Cell(i, 3).Range.Text = "线路/车牌号" tbl.Cell(i, 4).Range.Text = "验收照片" tbl.Rows(i).Height = 1.9 * 28.35 '设置标题行行高 Else p = p + 1 fod_index = fod_index + 1 tbl.Cell(i, 1).Range.Text = p tbl.Cell(i, 2).Range.Text = "司机背板" srr = Split(kr(fod_index), "\") tbl.Cell(i, 3).Range.Text = srr(UBound(srr)) tbl.Rows(i).Height = 6.4 * 28.35 Dim shp As InlineShape pic = Dir(kr(fod_index) & "\*.JPG") tbl.Cell(i, 4).Range.Select Do While pic <> "" 'Do While循环插入图片 Set shp = Selection.Range.InlineShapes.AddPicture(FileName:=kr(fod_index) & "\" & pic) shp.Height = 6 * 28.35 shp.Width = (10 / 2) * 28.35 pic = Dir tbl.Cell(i, 4).Range.Select '选中该单元格，为了下一步光标定位到单元格内部 Selection.EndKey wdLine Selection.TypeText " " '设置图片间隔 Loop End If Next MsgBox "完成！"End Sub


Function getfol()'该函数的作用：弹出对话框提示用户选择文件夹，并且返回该文件夹路径。'如果用户选择了取消，则返回空值 Dim PathSht As String With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then PathSht = .SelectedItems(1) Else PathSht = "" Exit Function End With getfol = PathSht & IIf(Right(PathSht, 1) = "\", "", "\")End Function

▎知识点

  • 获取子文件夹

    利用FSO对象，获取子文件夹，这个代码很常用。

Set fso = CreateObject("scripting.filesystemobject")Setf_num=fso.getfolder(PathSht)ForEachflInf_num.subfoldersmsgboxfl.nameNext

  • Word VBA新建表格

Word VBA中很大一部分代码，都可以通过录制宏获取。比如下方的代码。

Sub Add_table()'新建一个3行4列的表格 Set tbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=3, NumColumns:=4) tbl.Style = "网格型"End Sub

  • Word中的单位

    行高列宽默认是磅。如果是厘米，需要转化一下。转化关系如下：

    1磅约等于0.03527厘米,1厘米约等于28.35磅。

你可能想看：

批量将图片插入到Excel中，且自动调整图片大小以适应单元格的大小！

如何将一个文件夹内所有的图片批量插入到Excel工作表的B列中，并且图片可以自动适应单元格的大小，现在我们想要将文件内的图片按照从左向右的先后顺序批量插入到Excel工作表的B列中，并且每一张图片自动...

文章中插入图片，图文混排的简明操作

调整图文环绕方式，插入图片步骤，将插入光标移至文章需插入图片位置，插入图片，在对话框中选取所需图片。或直接双击图片“改变图片大小步骤。图片四周出现8个控制点，将光标移动到任一控制点，光标则变为双箭头形...

文字中如何插入图片

我们在使用WPS文字办公时常常遇到需要在文档中插入图片的情况，那么如何在文档中插入图片和设置图片呢。在弹窗中可以选择本地图片、网络图片、扫描仪、手机传图等。选择图片路径并插入图片图片就插入到文档中了在...

Word技巧使用大全，原来Word还有这些功能，太好用了吧

在图片工具的格式界面中点击[删除背景]。在背景消除界面中利用方框选中图片，二、将图片裁剪为形状 将图片插入到Word中，在图片工具的格式界面里，然后在弹出页面中选择一种形状就可以了。点击菜单栏中的[屏...

word操作技巧问答集锦：输入对号方框、名单聚在一张、批量删除汉字、制作作文纸

我们点击【插入】选项卡，找到带方框的对号，点击【插入】按钮。为这个符号设置一个快捷键，可以使用查找替换法、表格法……不过最简单的还是分栏法。点击【布局】选项卡，然后点击【分栏】-【更多分栏】，最后点击...

神奇的VBA系列-003：报表插入空白行

下面介绍的是一个职场中经常使用的功能，代码示例在标准模块中加入如下代码即可实现上面的演示功能。OnErrorResumeNext;Forn=Range("B65536").End(3).RowTo2S...

Word文档中如何快速统一图片大小

很多时候我们也都经常会在文章中插入想要的图片进行解释说明，会截取相关图片做演示，又该如何统一文档中图片的大小呢，　　2、在【选项】弹出的对话框中。并在右侧菜单栏中的【插入类型】修改为【四周型】，　　3...

仅利用Word编辑图片？效果很是惊艳，分享6个编辑小技巧

其实我们只需要插入图片，点击页面中的删除背景就可以在背景消除界面中抠图了。可以看看下图中的抠图效果，二、调整颜色 我们在图片工具界面中可以看到一个颜色选项，我们可以点击其他变体修改图片色调，三、三维旋...

VBA常用小代码102：批量合并相同值单元格

我们今天分享的VBA小代码内容是批量合并相同值的单列单元格，需要将相同的班级单元格修改为合并单元格……：'用户选择数据列，'intersect语句避免用户选择整列造成无谓运算,Application....

华工案对赌纠纷3大争议焦点，再审判决并未给出完美答案

《会议纪要》首次提出了对赌协议的效力及对赌纠纷的审判指导规则。就《对赌协议》在交易安排中的角色及其与公司章程的关系、《对赌协议》原则有效的原因、《公司法》第142条的理解与适用、投资人在交易中的身份转...

PS日常实用小技巧：3秒批量修改图片尺寸

今天的【PS日常使用小技巧】课堂，和大家分享的是——照片尺寸的批量处理方法！当你想要把图片发布到朋友圈的时候，领取更多免费视频教程↑。把图片导入PS中，在PS软件中“依次勾选或填入下面的内容！PS会根...

如何用photoshop批量处理图片大小

打开一张你要处理的图片，另存完后关掉图片。文件－自动－批处理在弹出的对话框中要选填的选项有，选择你要处理的图片所在的文件夹覆盖动作……包含子文件夹……禁止颜色配置警告这三个都勾选上目的，这个动作只能让...

Word批注妙用，给文章加注释，既方便实用又不影响排版

批注内容默认显示在文档的右侧。先用鼠标选中要添加批注的文字。然后再点击【新建批注】即可：即可为选中的文字新建批注：选中要添加批注的文字，再点击【新建批注】。也可以为选中的文字新建批注：点击【新建批注】...

用了这么多年电脑，总结出10个最实用Word技巧！用了就戒不掉！

当我们插入Word文档里的图片大小不一时。想要导出Word里的图片，其实只需要把文件改个后缀名就可以一次性提取全部的图片，将鼠标定位在需要选择的格式文本中，然后点击【开始】—【编辑】—【选择】—【选择...

超良心！这个资源网站，所有PPT、Word简历模板都可以免费下载！

办公资源网不需要注册会员！就可以免费下载模板了！人人都可以免费下载，以下模板统统免费下载！30000+原创精品PPT模板，总之网站上的所有模板资源都可以免费下载：如何免费下载，1.电脑端打开办公资源网...

这3个PPT、PDF、Word互相转换的方法，99%的人都不知道！太实用了！

经常游走于PPT、Word和PDF之间还不够，PPT、Word互转！只需点击【文件】-【导出】-【创建讲义】-【只使用大纲】- 然后就转成Word了，之后保存Word文档即可，点击【开始】-【新建幻灯...

2021中考数学必会的57个易错点(140页word)

解方程组即可求得交点坐标，(2)由三角函数定义求出BF=4/3CF=8，得出∠BAF=∠DAF即可.

三角形知识大全：八大专题（48页word）

利用等量相加和相等可得∠ABC=∠ACB，可证Rt△BME≌Rt△CNE，可得∠ABE=∠ACE.，证明Rt△BME≌Rt△CNE是本题的关键.，先证明△BDC≌△AEC得出∠CBD=∠CAE，【解析...

word分段编码的小技巧

word文档(2003版)任意分段编码，一、不留空白页的分段编码：用拖黑的办法删除新出现的空白行。即需要重新编页码的起始页，二、需留空白页的分段编码：增加空白页的处理“删除新出现的空白行，2.光标移到...

在Word中画直线的操作

打开Word。单击画面右上方“在出现的菜单中选择，工具“在右侧出现的菜单中选择，绘图“则在文档下方会出现绘图工具栏，在绘图工具栏中，点击，直线“不管橫线·竖线·斜线就都可以画了”在出现的。按住鼠标左键...

办公小技巧：神奇高效 Word文档中的“安全模式”

我们选择文本时用鼠标一划即可搞定，表示已经开启了扩展选择模式，2. 如何按需选择不同内容 当按下F8进入扩展选择模式后。若再按Shift+F8则变为选择当前光标所在的段落（相当于连续按下4次F8的效果...

壬窍全手打成word版

贵人后空白常元阴后六位为静，而阴神助之愈吉，制之则其吉不终。阳神凶，而阴神助之愈凶，制之则其凶自散。正时上所得天官为值事门，则亦非我宅中事。若墓之遁干木旺，辰戌丑未皆土也，戌中有金火，未中有木火，辰之...

最全的word使用方法

然后打开替换对话框“批量转换全角字符为半角字符 首先全选“3、单击格式刷按钮。若在第3步中单击改为双击。直到再次单击格式刷(或按Esc键)为止，方法如下 1. 在Word文档中输入。右键单击输入法状态...

如何让Word快速转化为PPT演示文稿(2图)

如何让Word快速转化为PPT演示文稿 要把一篇长的Word文档搬运到PPT演示文稿，如果你赶时间而且是要手动一段段文本的复制粘贴，其实有个简单的办法可以让你很快的完成这个工作的。步骤或方法[编辑本段...

Word中的万能键，用好效率提升200%！

要说Word中哪个快捷键十项全能，word里插入图片形状至少需要三步，Word表格中的计算虽然也可以通过函数完成但无法使用Excel的自动向下填充功能其他空单元格按F4也能快速计算

建议收藏！一定要会的15个Word神操作，让你效率提升10倍不止！

在Word中F4 键的功能是重复上一步操作，全选标题右击，有时候需要拆分表格。接着鼠标点击文本前8.快速给文本加下划线选择需要加下划线的文本即可给文本加下划线

三角形的高线、中线、角平分线、内外角和等应用剖析（61页word）

三角形的高线、中线、角平分线、内外角和等应用剖析：从三角形的一个顶点向它的对边所在直线作垂线。顶点和垂足之间的线段叫做三角形这边上的高，3.三角形高的交点位置，锐角三角形的三条高的交点在三角形的内部。...

表格图片'文件夹kr

上一篇
名家山水画《青绿山水》

下一篇
关于企业内部个人承包中保险待遇问题的复函 (劳险字[1992]27号)

有话要说...

最新文章

取消
扫码支持 支付码