轻松调整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
将Word文档另存为网页(.mht 或 .html),提取图片后使用如 Photoshop、XnConvert 等工具批量缩放,再重新插入文档。