word图片编辑宏

方法：按alt+F11。然后在project右键插入模块，然后粘贴SubMacro()Mywidth=4.13Myheigth=5.69ForEachiShapeInActiveDocument.InlineShapesiShape.Height=28.345*MyheigthiShape.Width=28.345*MywidthNextiShapeEndSub再按F5，就行了。【Mywidth=4.13Myheigth=5.69这里的数字你自己改大小】一页4张图：一个宏一个命令SubMacro()Mywidth=11.03Myheigth=4.9ForEachiShapeInActiveDocument.InlineShapesiShape.Height=28.345*MyheigthiShape.Width=28.345*MywidthNextiShapeEndSub一页3张图：一个宏一个命令SubMacro()Mywidth=12.28Myheigth=6.64ForEachiShapeInActiveDocument.InlineShapesiShape.Height=28.345*MyheigthiShape.Width=28.345*MywidthNextiShapeEndSub打边框宏SubMacro1()ForEachiShapeInActiveDocument.InlineShapesWithiShapeWith.Borders(wdBorderLeft).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth050pt.Color=wdColorAutomaticEndWithWith.Borders(wdBorderRight).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth050pt.Color=wdColorAutomaticEndWithWith.Borders(wdBorderTop).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth050pt.Color=wdColorAutomaticEndWithWith.Borders(wdBorderBottom).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth050pt.Color=wdColorAutomaticEndWith.Borders.Shadow=FalseEndWithWithOptions.DefaultBorderLineStyle=wdLineStyleSingle.DefaultBorderLineWidth=wdLineWidth050pt.DefaultBorderColor=wdColorAutomaticEndWithShowVisualBasicEditor=TrueNextiShapeEndSub