多个word批量修改 word中批量修改图片大小的两个方法.docx

多个word批量修改word中批量修改图片大小的两个方法对于把ppt的内容拷贝到word中：对ppt的一页进行复制，然后粘贴到word中如果要的是ppt运行过程中的内容，在qq运行的情况下，按Ctrl+Alt+A截屏，按勾，然后可以直接粘贴到word中(生成的图片已经在剪贴板中了)1.图片只需要符合文档大小即可方法：插入图片，word自动处理图片大小。看一下下方的文件名按Ctrl+A(全选)，图片的顺序按照电脑文件的顺序排列的每一次按Ctrl+点击图片，被点击的图片放在首位效果：2.图片需要修改为具体的大小把图片复制，直接在word中粘贴，图片以原始大小显示按视图按宏，查看宏，输入setpicsize，按创建复制并粘贴以下程序并按调试+编译，看看程序有没有错误Subsetpicsize()DimiDimHeight,WeightHeight=300Weight=200OnErrorResumeNext'忽略错误Fori=1ToActiveDocument.InlineShapes.Count'InlineShapes类型图片ActiveDocument.InlineShapes(i).Height=Height'设置图片高度为Height_pxActiveDocument.InlineShapes(i).Width=Weight'设置图片宽度Weight_pxNextiFori=1ToActiveDocument.Shapes.Count'Shapes类型图片ActiveDocument.Shapes(i).Height=Height'设置图片高度为Height_pxActiveDocument.Shapes(i).Width=Weight'设置图片宽度Weight_pxNextiEndSub如果没有错误，保存(Ctrl+S)并退出(Alt+F4)然后按宏，查看宏，选择名字为setpicsize的宏，并按运行，稍等片刻即可完成或者直接在代码页面按运行+运行子过程(F5)效果：程序二修改第x张图片到第y张图片的大小(可以分成很多段)SubModifyPhoto1()Dimi,x,yDimHeight,WeightHeight=80Weight=100'修改第x张图片到第y张图片的大小x=4y=13OnErrorResumeNext'忽略错误Fori=1ToActiveDocument.InlineShapes.Count'InlineShapes类型图片Ifi>=xAndiActiveDocument.InlineShapes(i).Height=Height'设置图片高度为Height_pxActiveDocument.InlineShapes(i).Width=Weight'设置图片宽度Weight_pxEndIfNextiFori=1ToActiveDocument.Shapes.Count'Shapes类型图片Ifi>kThenActiveDocument.Shapes(i).Height=Height'设置图片高度为Height_pxActiveDocument.Shapes(i).Width=Weight'设置图片宽度Weight_pxEndIfNextiEndSub效果：