word常用宏方法介绍

1、用宏批量调整word中图片的大小
SubFormatPics()
  Dim iSha As InlineShape
  For Each iSha In ActiveDocument.InlineShapes
    If iSha.Type = wdInlineShapePicture Then
      iSha.LockAspectRatio = msoFalse '不锁定纵横比
      iSha.Width = CentimetersToPoints(15) '宽15CM
      iSha.Height = CentimetersToPoints(25) '高25CM
    End If
  Next
EndSub
ps:只需要修改高度宽度即可