1.打开word
工具－宏－宏（或者直接按Alt+F8）进入宏的界面，命名一个宏名 注意：宏名不能设置为和特有关键字一样：如：set 等
2.输入一下代码
Sub tupian() ' ' tupian 宏 ' Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 ActiveDocument.InlineShapes(n).Height = 215.6 '设置图片高度为 px 一般1厘米约为28像素 ActiveDocument.InlineShapes(n).Width = 297.92 '设置图片宽度 px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 ActiveDocument.Shapes(n).Height = 215.6 '设置图片高度为 ActiveDocument.Shapes(n).Width = 297.92 '设置图片宽度 Next n '
End Sub
