在撰写论文、制作报告或整理资料时,经常需要在Word文档中插入大量图片。但这些图片尺寸不一,影响整体排版美观。本文将介绍几种高效方法,帮助你批量统一Word中所有图片的尺寸。
这是最高效的批量处理方式,适合处理包含几十甚至上百张图片的文档。
Alt + F11 打开VBA编辑器。
Sub ResizeAllPictures()
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
If pic.Type = wdInlineShapePicture Then
pic.LockAspectRatio = msoTrue
pic.Width = CentimetersToPoints(10) ' 设置宽度为10厘米,高度自动等比缩放
End If
Next pic
End Sub
你可以根据需要修改 Width 的值(单位为厘米),保存后关闭编辑器。
回到Word,按 Alt + F8,选择 ResizeAllPictures 并运行即可。
Ctrl 键,依次点击每张图片进行多选。注意:此方法在图片较多时操作繁琐,建议优先使用宏方法。