求高手帮我详细解读一下代码，说是VBS，就word里的一个宏。

Dim i As Integer
For i = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).Height = 170 * 1.1
ActiveDocument.InlineShapes(i).Width = 225 * 1.2
Next i

设置当前活动文档里面的所有的图片和图形的高度和宽度分别为187、270。

Dim i As Integer 定义i为整数 For i = 1 To ActiveDocument.InlineShapes.Count 循环语句 ，i从1到当前活动文档中图片的个数 ActiveDocument.InlineShapes(i).Height = 170 * 1.1 艺术字的高度为170*1.1磅 ActiveDocument.InlineShapes(i).Width = 225 * 1.2 艺术字的宽度度为225*12 磅 Next i

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息