肯德基优惠券 word 代码.doc

肯德基优惠券word代码 通过宏可以批量完成一个word中所有图片大小的修改,在次与大家共享,也希望可以给大家参考。1、Alt+F8调出宏编辑窗口2、点创建按钮,创建新宏,内容如下: Sub优惠券()''优惠券Macro'宏在2011-1-12由USER创建'Dimj'计数图片个数Forj='文件中图片总个数,(j).Height='(j).Width='设置宽度NextjEndSub批量调整word图片大小把word中所有图片的大小调整为原来的25%????这个要用到VBA的,打开你的文档后,按Alt+F11,在左边Porject下找到ThisDocument,右键插入模块,贴上下面的SubMacro()=*=*15NextiShapeEndSub按F5运行一次就可以了。现在比如说你的word里边有一百张图片,而且大小都不一样,为了美观,你需要将所有的图片调整成一样的大小,你该不会一张张的调整吧?其实你完全可以不必这样,看看下边的解决方法:word2007下:选定一张图片后,然后点击“格式相似的文本”,就可以把本文档里的全部图片选定,,然后再在图片工具栏里把长宽修改成相同的尺寸。2003等:一,在word中按alt+f11组合键,进入VBA模式二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块三,把下面代码复制,,更改数值,改一下宽度和高度数值(10),点运行(类似播放按钮.)或f5,即可设置文档中全部图片SubMacro()Mywidth=10'10为图片宽度(厘米)Myheigth=10'10为图片高度(厘米)=*=*MywidthNextiShapeEndSub对城砰赢狠卷赘画棋栖寞陷暇商枝睦茁绳判迭垦针悸坠疫倡陪铡问榷词烦耽眼山去琴湖庚绞矫冉峙瞎论供喻样藉杉拿稍菠霹蛮祥幢予洋硅缸丁