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

由于是批量的处理同样的事情，因此要用到宏。 是这样的，如果你的图片显示的是嵌入式的。也就是不能旋转的那种格式，钻切换大小会很容易，方法 要使用宏命令。 宏主要用来处理有规律的重复的工作，相当于批处理。想好了就能编辑出来。工具→宏→录制新宏→然后指定一个快捷键（如L，相当于ctrl L快捷键），然后指定、关闭。开始录制宏。把你能够重复的操作执行一下，以计算机能识别的重复为准。然后→工具→宏→停止录制。这样宏就录制出来了。你ctrl L执行就行了。连续按，则连续执行。如果不完全正确，还要修改或重新录制宏。 对你来说：使用的循环是：查找，图形→然后调整大小，然后鼠标移到图形右侧。然后再执行循环。这个命令是：ctrl F，点开高级，查找里面，选择特殊格式里面的“图形”，单击查找下一个。关掉查找界面，回到word编辑界面。直接去单击 格式菜单里面的 图片，设置大小为你认可的比例。确定。然后将光标用键盘移出 图片（右移以下）。 执行宏即可。 我写论文时经常要把所有的图调整成一样大小，使用的都是以下的代码，供参考。至于批量插入图片等功能，因为写论文时从来用不上，也不知道应该弄成什么样子，所以无法回答你。Sub 一次性调整公式以外的图片大小及格式()? ?? ? 功能 1 ：把全文的图片调整成同样大小，公式除外? ?? ? 功能 2 ：如果图片不是 jpg 格式的，统一调整成 jpg 格式并居中，以减小文档体积? ?? ? ========================? ?? ? Mywidth = 7 需要的图片宽度（厘米）? ?? ? Myheigth = 5 需要的图片高度（厘米）? ?? ? ========================? ?? ? Dim myPic As InlineShape? ?For Each myPic In ActiveDocument.InlineShapes? ?? ? With myPic? ?? ?? ?? ?? ?.Select? ?? ?? ?? ?? ?Select Case .Type? ?? ?? ?? ?? ?Case wdInlineShapePicture? ?? ?? ?? ?? ?? ?? ???.Height = 28.345 * Myheigth? ?? ?? ?? ?? ?? ?? ???.Width = 28.345 * Mywidth? ?? ?? ?? ?? ?? ?? ???Selection.ParagraphFormat.Alignment =wdAlignParagraphCenter? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ???Selection.Cut? ?? ?? ?? ?? ?? ?? ???Selection.PasteSpecial Link:=False,DataType:=15, Placement:=wdInLine, DisplayAsIcon:=False? ?? ?? ?? ?? ?End Select? ?? ? End With? ?NextEnd Sub 打开你的WORD文件，按alt+F11键，出现“microsoft visual basic”窗口，在左边“project”下双击“microsoft word 对象”，再双击下面的“thisdocument”，然后就可以在右边出现的窗口中拷入上面的代码，然后按“F5”键运行这段代码，稍等几秒，等microsoft visual basic窗口标题栏的“正在运行”字样消失后，关闭这个“microsoft visual basic”窗口，看看你的WORD中的图发生了什么变化？是不是已经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类型图片ActiveDocument.InlineShapes(n).Height = 400 设置图片高度为 400pxActiveDocument.InlineShapes(n).Width = 300 设置图片宽度 300pxNext nF