由于是批量的处理同样的事情

由于是批量的处理同样的事情，因此要用到宏。是这样的如果你的图片显示的是嵌入式的也就是不能旋转的那种格式钻切换大小会很容易，方法要使用宏命令。宏主要用来处理有规律的重复的工作相当于批处理想好了就能编辑出来工具→宏→录制新宏→然后指定一个快捷键（如L，相当于ctrlL捷键），然后指定、关闭。开始录制宏。把你能够重复的操作执行一下，以计算机能识别的重复为准。然后→工具→宏→止录制。这样宏就录制出来了。你L执行就行了。连续按，则连续执行。如果不完全正确，还要修改或重新录制宏。对你来说使用的循环是查找形→然后调整大小然后鼠标移到图形右侧。然后再执行循环。这个命令是：ctrlF，点开高级，查找里面，选择特殊格式里面的“图形”，单击找下一个。关掉查找界面，回到辑界面。直接去单击格式菜单里面的图片设置大小为你认可的比例确定然后将光标用键盘移出图片（右移以下）。执行宏即可。批量修图片大小：我写论文时经常要把所有的图调整成一样大小用的都是以下的代码供参考至于批量插入图片等功能为论文时来用不上不知道应该弄成什么样子以法回答你。Sub一次性调整公式以外的图片大小及格(功能：全文的图片调整成同样大小，公式除外功能：果图片不是jpg格式的，统一调整成jpg格并居中，以减小文档体积'========================Mywidth需的图片宽度（厘米）=5需要的图片高度（厘米）'========================DimmyPicAsInlineShapeForEachInActiveDocument.InlineShapesWithSelectwdInlineShapePicture*Myheigth*Mywidth=wdAlignParagraphCenter

Selection.PasteSpecialLink:=False,DataType:=15,DisplayAsIcon:=FalseEndEndWithNextEnd打开你的WORD文，按alt+F11键出现microsoftvisualbasic窗，在左边“project下双击“microsoftword对象再击下面“thisdocument然就可以在右边出现的窗口中拷入上面的代码，然后按F5键行这段代码，稍等几秒，等microsoftbasic口标题栏的正在运”字样消失后，关闭这microsoftvisualbasic”窗口看看你的WORD中的图发生了什么变化？是不是已经OK了批修图大——定宽这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！、打开word工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！、宏名起好了，单“建进入VisualBasic编辑器，输入如代码并保存Subsetpicsize()设置图片大Dim'图个数Resume忽略错误n=ToActiveDocument.InlineShapes.Count类型图ActiveDocument.InlineShapes(n).Height='设图片度为400px='设图片宽Nextn=ToActiveDocument.Shapes.Count'Shapes类型图=400设置图片高为=300'设图片宽NextSub、返回word，工具－宏－宏（或者直接按Alt+F8次入宏的界面，选择刚才编辑好的宏，并单运行按钮，就可以了片多时，可能花一些时间批量修改图片大小—按比例缩放篇这部分要说的是把word中的所有图片按比例缩放！具体操作同上，只是代码部分稍做修改，代码如下：Subsetpicsize()设置图片大Dim'图个数

DimpicwidthDimpicheightResume忽略错误n=ToActiveDocument.InlineShapes.Count类型图picheight=ActiveDocument.InlineShapes(n).Height=ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height=picheight*设置度为1.1=*设置宽度为1.1倍NextTo类型片picheight===*1.1设置高度为倍=picwidth*设置宽度为1.1倍NextSub批量给图片加边框的方法DimiAsIntegerFori=1ToActiveDocument.InlineShapes.CountWithActiveDocument.InlineShapes(i)With.Borders(wdBorderLeft).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth100pt.Color=wdColorAutomaticEndWithWith.Borders(wdBorderRight).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth100pt.Color=wdColorAutomaticEndWithWith.Borders(wdBorderTop).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth100pt

.Color=wdColorAutomaticEndWithWith.Borders(wdBorderBottom).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth100pt.Color=wdColorAutomaticEndWith.Borders.Shadow=FalseEndWithWithOptions.DefaultBorderLineStyle=wdLineStyleSingle.DefaultBorderLineWidth=wdLineWidth100pt.DefaultBorderColor=wdColorAutomaticEndWithNexti我用的时候不缺代码啊，这是我做资料用的：Subsetpicsize()''setpicsizeMacro'宏由游创建'Dimn图片个数OnErrorNext忽略错误For=1'InlineShapes型图片=设图片高度为600pxActiveDocument.InlineShapes(n).Width=设置图片宽度NextnFor=1ActiveDocument.Shapes.Count类图片=设图片高度为=400设置图片宽度400pxNextnDimiFori=ToActiveDocument.InlineShapes.CountWithWith.Borders(wdBorderLeft)wdLineStyleSinglewdLineWidth100pt.Color=wdColorAutomatic

EndWithWith.Borders(wdBorderRight)wdLineStyleSinglewdLineWidth100pt.Color=wdColorAutomaticEndWithWithwdLineStyleSinglewdLineWidth100pt.Color=wdColorAutomaticEndWithWith.Borders(wdBorderBottom)wdLineStyleSinglewdLineWidth100pt.Color=wdColorAutomaticEndWith.Borders.Shadow=FalseEndWithWithOptions=wdLineStyleSinglewdLineWidth100pt.DefaultBorderColor=wdColorAutomaticEndWithNextiEnd批修中所图大宏操宏可以批量完成一个word中有图片大小的修改，在次与大家共享，也希望可以给大家参考。、Alt+F8调宏编辑窗口、点创建按钮，创建新宏setpicsize,内如下：Subsetpicsize()设置图片大小'宏由hero_thm录'Dimj计数图片个数Forj=ToActiveDocument.InlineShapes.Count件图片总个数，图片类型为inlineshapesActiveDocument.InlineShapes(j).Height=362设高度ActiveDocument.InlineShapes(j).Width设宽度NextjEnd、保存退出，点运行宏word所有的图片统一调整为宽17cm，高Subsetpicsize()

设置图片大小'宏由hero_thm录'Dimj计数图片个数Forj=ToActiveDocument.InlineShapes.Count件图片总个数，图片类型为inlineshapesIfActiveDocument.InlineShapes(j).Width>ActiveDocument.InlineShapes(j).Width400设宽度EndIfNextjEnd在片批插分符①批量插入图片。这个都会，不用详细介绍了。②快速分页，每张图片一页。用宏来处理。工具→宏录制新键单选键盘这个按钮请新快捷我定的是＋L直接用键盘上的组合键按下去即→单指定关闭→方向箭头光移到第一张图片的右侧，按一下＋（这个组合键是插入分页符后将光标用方向箭头移到第二张图片的右侧。单击停止录制。然后联系按ctrlL即将无论多少张的图片均单独设置为一页。我已经尝试了，很轻松的。

以下无正仅供个用学习、究不得用商业用。толькдлялюдей,которыеиспользуютсядляобучения,исследованийинедолжныиспользоваьсявкомерческихцелях.Forpersona