在处理包含大量图片的Word文档时,手动逐张调整图片格式既费时又低效。本文将介绍如何利用Word内置功能或简单宏命令,一次性统一调整文档中所有图片的格式,包括尺寸、环绕方式、对齐等。
适用于大量图片,可自动统一宽度、高度、环绕方式等:
Alt + F11 打开VBA编辑器。
Sub BatchFormatPictures()
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
If pic.Type = wdInlineShapePicture Then
pic.LockAspectRatio = msoTrue
pic.Width = CentimetersToPoints(10) ' 宽度设为10厘米
' 可选:设置环绕方式(需转换为浮动型)
' pic.ConvertToShape.WrapFormat.Type = wdWrapSquare
End If
Next pic
End Sub
Alt + F8,运行宏即可。