骚操作——Word批量修改图片大小

吐槽

今天笔者遇到一个问题，从网页上拷贝了一份资料到word中，有大量图片，图片大小不一，有些已经超出了word的边框。

笔者以前有excel的编程经验。但是语法几乎忘光了，于是百度了一下。

代码粘过来不好用！于是仔细看了下百度经验发布的图片，里面有写代码。长这样：

 这都什么玩意儿啊，照着改了也不行！报子过程或函数未定义

吐槽一下！记录下正确的步骤

正确步骤

• 新建一个DOCX文档，wps也行
• 另存为可以允许宏的文档格式docm
• 开发工具--宏，新建一个宏

•  新建的宏，代码框输入以下代码

Sub t()
Dim n '图片个数
On Error Resume Next '忽略错误

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度400 px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度300 px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片
ActiveDocument.Shapes(n).Height = 400 '设置图片高度400 px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度300 px
Next n

End Sub

百度经验所呈现的问题就是代码语法问题，而且截图也是错的！ 

•  运行宏

 最后就可以获得你想要的样子啦！