重点来了!将一下内容复制到弹出的Microsoft Visual Basic中,注意其中Height = 216 * 0.7、Width = 300 * 0.8中的数值,如果后续执行时不能缩进到同一页面下,可以调整这部分的数字(登录PC版查看历史消息找到本文,复制这段宏命令)。
Dim i As Integer
For i = 1 To ActiveDocument.InlineShapes.Count
With ActiveDocument.InlineShapes(i)
.Height = 238 * 0.7
.Width = 315 * 0.8
.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
.Borders(wdBorderTop).LineWidth = wdLineWidth050pt
.Borders(wdBorderTop).Color = wdColorAutomatic
End With
Next i
编辑完成后关闭,回到Word界面,点击“宏”下拉菜单(倒三角),找到“查看宏”并单击运行,Word就会进行自动的缩放排序,多张图片很容易就缩进到一页内了,注意前面讲的,如果不能,记得调整宏中Height、Width的数值。
按下Ctrl+P调出打印页面,选择打印即可,一张A4规格的纸张就能缩进多张图片,是不是很神奇?这就是宏的作用,通过宏命令,可以将很多需要人手工一步一步调整的方法大大简化哦!