重点来了!将一下内容复制到弹出的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的数值。
【点击图片进入下一页或下一篇】
- 看不过瘾？点击下面链接！ 【本站微信公众号：gsjx365，天天有好故事感动你！】
