word批量修改图片的大小

打开需要统一设置图片尺寸的Word文档，然后按下【Alt+F11】组合键打开VBA编辑窗口。

在VBA窗口中双击左侧的“ThisDocument”打开该文档的代码编辑器，并且输入以下的内容。

Sub FormatPics()
Dim TuPian As InlineShape
For Each TuPian In ActiveDocument.InlineShapes
If TuPian.Type = wdInlineShapePicture Then
TuPian.LockAspectRatio = msoFalse '不锁定图片的宽高比'
TuPian.Width = CentimetersToPoints(4.15