操作方法
在Word文档界面, 首先按alt+F11。 出现一个弹窗,
然后在project这里,鼠标点击右键,选择插入模块,
然后粘贴 Sub Macro( ) Mywidth = 13.9 Myheigth = 19.48 For Each iShape In ActiveDocument.InlineShapes iShape.Height = 28.345 * Myheigth iShape.Width = 28.345 * Mywidth Next iShape End Sub
再按F5,就行了。 【Mywidth = 4.13Myheigth = 5.69这里的数字你自己改大小】