1、调整 WORD图片为统一尺寸方法:新建宏1、打开WORD,Alt+F8调出宏编辑窗口2、在宏名中填入名称,如名称为“调整图片大小”,然后点“创建“按钮,创建新宏,将以下内容复制填入: Sub 调整图片大小() '' 调整图片大小 宏' Dim j '计数图片个数 For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数,图片类型为inlineshapes ActiveDocument.InlineShapes(j).Height=328'设置高度(28.4像素/厘米)ActiveDocume
2、nt.InlineShapes(j).Width=457'设置宽度(28.4像素/厘米) Next j End Sub复制后图像如下:然后关闭。下面运行宏即可将WORD中所有图片大小进行统一运行之后就会发现所有图片大小都一致了。