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

1、由于是批量的处理同样的事情，因此要用到宏。是这样的，如果你的图片显示的是嵌入式的。也就是不能旋转的那种格式，钻切换大小会很容易，方法要使用宏命令。宏主要用来处理有规律的重复的工作，相当于批处理。想好了就能编辑出来。工具宏录制新宏然后指定一个快捷键（如L，相当于ctrl L快捷键），然后指定、关闭。开始录制宏。把你能够重复的操作执行一下，以计算机能识别的重复为准。然后工具宏停止录制。这样宏就录制出来了。你ctrl L执行就行了。连续按，则连续执行。如果不完全正确，还要修改或重新录制宏。对你来说：使用的循环是：查找，图形然后调整大小，然后鼠标移到图形右侧。然后再执行循环。这个命令是：ctrl F，

2、点开高级，查找里面，选择特殊格式里面的“图形”，单击查找下一个。关掉查找界面，回到word编辑界面。直接去单击 格式菜单里面的 图片，设置大小为你认可的比例。确定。然后将光标用键盘移出 图片（右移以下）。执行宏即可。 批量修改图片大小：我写论文时经常要把所有的图调整成一样大小，使用的都是以下的代码，供参考。至于批量插入图片等功能，因为写论文时从来用不上，也不知道应该弄成什么样子，所以无法回答你。Sub 一次性调整公式以外的图片大小及格式()       '功能 1 ：把全文的图片调整成同样大小，公式除外     &#

3、160; '功能 2 ：如果图片不是 jpg 格式的，统一调整成 jpg 格式并居中，以减小文档体积       '=       Mywidth = 7 '需要的图片宽度（厘米）       Myheigth = 5 '需要的图片高度（厘米）       '=       Dim myPic As InlineShape   For E

4、ach myPic In ActiveDocument.InlineShapes       With myPic               .Select               Select Case .Type               Case

5、 wdInlineShapePicture                       .Height = 28.345 * Myheigth                       .Width = 28.345 * Mywidth     &

6、#160;                 Selection.ParagraphFormat.Alignment =wdAlignParagraphCenter                                    

7、60;    Selection.Cut                       Selection.PasteSpecial Link:=False,DataType:=15, Placement:=wdInLine, DisplayAsIcon:=False               End Sel

8、ect       End With   NextEnd Sub打开你的WORD文件，按alt+F11键，出现“microsoft visual basic”窗口，在左边“project”下双击“microsoft word 对象”，再双击下面的“thisdocument”，然后就可以在右边出现的窗口中拷入上面的代码，然后按“F5”键运行这段代码，稍等几秒，等microsoft visual basic窗口标题栏的“正在运行”字样消失后，关闭这个“microsoft visual basic”窗口，看看你的WORD中的图发生了什么变化

9、？是不是已经OK了？word批量修改图片大小固定长宽篇这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！1、打开word，工具宏宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存Sub setpicsize() '设置图片大小Dim n'图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片

10、ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300pxNext n

11、End Sub3、返回word，工具宏宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）word批量修改图片大小按比例缩放篇这部分要说的是把word中的所有图片按比例缩放！具体操作同上，只是代码部分稍做修改，代码如下：Sub setpicsize() '设置图片大小Dim n'图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'Inl

12、ineShapes类型图片picheight = ActiveDocument.InlineShapes(n).Heightpicwidth = ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nFor n = 1 ToActiveDocument.Shapes.Count 'Sh

13、apes类型图片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nEnd Sub批量给图片加边框的方法：Dim i As IntegerFor i = 1 To ActiveDocument.InlineShapes.

14、CountWith ActiveDocument.InlineShapes(i)With .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth100pt.Color = wdColorAutomaticEnd WithWith .Borders(wdBorderRight).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth100pt.Color = wdColorAutomaticEnd WithWith .Borders(wdBorde

15、rTop).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth100pt.Color = wdColorAutomaticEnd WithWith .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth100pt.Color = wdColorAutomaticEnd With.Borders.Shadow = FalseEnd WithWith Options.DefaultBorderLineStyle = wdLineStyleSi

16、ngle.DefaultBorderLineWidth = wdLineWidth100pt.DefaultBorderColor = wdColorAutomaticEnd WithNext i    我用的时候不缺代码啊，这是我做资料用的：Sub setpicsize()'' setpicsize Macro' 宏在 2010-7-22 由 游客 创建'Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count &#

17、39;InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 600 '设置图片高度为 600pxActiveDocument.InlineShapes(n).Width = 400 '设置图片宽度 400pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 600 '设置图片高度为 600pxActiveDocument.Shapes(n).Width = 400 '

18、;设置图片宽度 400pxNext nDim i As IntegerFor i = 1 To ActiveDocument.InlineShapes.CountWith ActiveDocument.InlineShapes(i)With .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth100pt.Color = wdColorAutomaticEnd WithWith .Borders(wdBorderRight).LineStyle = wdLineStyleSingle.LineWi

19、dth = wdLineWidth100pt.Color = wdColorAutomaticEnd WithWith .Borders(wdBorderTop).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth100pt.Color = wdColorAutomaticEnd WithWith .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth100pt.Color = wdColorAutomaticEnd With.Borde

20、rs.Shadow = FalseEnd WithWith Options.DefaultBorderLineStyle = wdLineStyleSingle.DefaultBorderLineWidth = wdLineWidth100pt.DefaultBorderColor = wdColorAutomaticEnd WithNext iEnd Sub批量修改word中所有图片大小 宏操作宏可以批量完成一个word中所有图片大小的修改，在次与大家共享，也希望可以给大家参考。 1、Alt+F8调出宏编辑窗口 2、点创建按钮，创建新宏，setpicsize,内容如下： Sub setpicsize() '设置图片大小 ' 宏在 2008-3-31 由 hero_thm 录制 ' Dim j '计数图片个数 For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes Activ