word文档如何批量修改图片大小？

用宏可以轻松完成： Sub FormatPics(垂员临紧父) Dim iSha As InlineShape For Each iSha In ActiveDocument.InlineShapes If iSha.Type = wdInlineShapePicture Then iSha.LockAspectRat先海皇磁落区二担下io = msoFalse '不锁定纵横比 iSha.Width = CentimetersToPoints(5) '宽5CM iSha.Height = CentimetersToPoints(5) '高5CM End If Next End Sub