[手把手]word批量导入、修改图片大小和压缩图片

最佳经验

由作者撰写原创经验并推荐置顶

日常工作，我们不时会需要将大量图片插入word，并对其设置统一的尺寸大小，下面请跟随我，学习批量导入、修改图片尺寸和压缩图片的办法，让你告别重复工作以下内容是由微蓝经验网用户发布[手把手]word批量导入、修改图片大小和压缩图片，希望对于用户有一定帮助，为朋友进行解决疑惑，如若想了解更多相关内容，可以向底部移动了解更多与本教程文章相关解决经验方法！

工具与材料

word软件；电脑

步骤与方法

1/10
在计算机上打开word，进入自己操作的文档页面
2/10
将所有需要导入的图片放入同一文件夹，修改文件名，使其排列顺序符合我们要求。
3/10
开启word，进入文档操作界面，单击右上角如图“插入”
4/10
单击“插入”之后，单击插入中的照片，如图所示
5/10
在弹出来的页面，“查找范围”框里找到需要插入图片所在文件夹，
方法一：选中第1张图片，按住键盘Shift键，再选中最后一张图片。
方法二：选中任意一张照片，同时按键盘“Ctrl”键和字母“A”键，全选
点击“插入”
6/10
接x下来
方法一：在word软件界面中依次点击：视图→宏
方法二：同时按键盘“Alt”键和“F8”键（后面简称Alt+F8）
弹出宏创建窗口
7/10
在宏名栏里任意输入一个宏的姓名，本例中我们使用“Wendy”
点击创建
8/10
弹出来“MicrosoftVisualBasic”对话框，复制下面的代码到代码窗口里替换掉原有内容：
Subsetpicsize()'设置图片大小
Dimn'图片个数
OnErrorResumeNext'忽略错误
Forn=1ToActiveDocument.InlineShapes.Count'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height=5*28.35'设置图片高度为5cm（1cm等于28.35px）
ActiveDocument.InlineShapes(n).Width=4*28.35'设置图片宽度4cm
Nextn
EndSub
其中图片本例中图片尺寸为5cm和4cm
9/10
单击“MicrosoftVisualBasic”窗口工具栏里的“运行”按钮（类似播放器里的播放按钮）或者按键盘“F5”键
10/10
待标题栏上方的[正在运行]消失后，单击右上角小叉关闭“MicrosoftVisualBasic”窗口。
大功告成！！