“宏”的应用——在word中成批插入图片

一、复习：在Word中插图像文件，同学们已经学习过，都懂得插入图像。

二、引子：我用数码相机拍摄了一组照片，文件名是：101826101.jpg~101826130.jpg。请同学们都把它们插入到文档中。才30张图片，不算多，如果300张怎么办？

三、录制宏：打开Word文档；建立表格；录制“宏”——在表格中插入一图像；

四、观察与思考：编辑“宏”；

可见如下代码：

Sub Macro1()

Selection.MoveRight Unit:=wdCell

Selection.InlineShapes.AddPicture FileName:="D:\My pic\1018256101.jpg", _

LinkTofile:=False, SaveWithDocument:=True

End Sub

可以看到刚才插入的图片名称和路径，其他代码看不懂没关系。

五、修改“宏”

改变文件名，运行“宏”，你是否成功插入另一张图片了？怎么样？对比从“插入”菜单操作是快了还是慢了。

六、实现循环

想一想，如果要插入101826101.jpg到101826130.jpg共30 张图片，如何用循环来实现。

解释：变量、For—Next循环、STR函数、TRIM函数

Sub Macro1()

For i = 101 To 130

pic_name = "D:\My pic\1018256" + Trim(Str(i)) + ".jpg"

Selection.MoveRight Unit:=wdCell

Selection.InlineShapes.AddPicture FileName:=pic_name, _

LinkTofile:=False, SaveWithDocument:=True

Next

End Sub

体会一下，现在的工作效率。想提高这样的工作效率，你得学习程序设计方法。