word批量 修改文件中的图片

1.word批量 修改文件中的图片

要批量，只能用宏代码来实现。

把你的要求说一下，比如要将宽高分别修改成多少？或是按比例缩放成多少？关键代码如下： Sub PicWHAdjust() For i = 1 To ActiveDocument.InlineShapes.Count If ActiveDocument.InlineShapes(i).Type = 3 Then ActiveDocument.InlineShapes(i).Width = 5*28.409 '将图片的宽设置为5cm，可自行修改 ActiveDocument.InlineShapes(i).Height = 3*28.409 '将图片的高设置为3cm ' ActiveDocument.InlineShapes(i).Width =ActiveDocument.InlineShapes(i).Width*0.8'将图片的宽缩小20%，可自行修改 ' ActiveDocument.InlineShapes(i).Height = ActiveDocument.InlineShapes(i).Height *0.8'将图片的高缩小20% End If Next For i = 1 To ActiveDocument.Shapes.Count If ActiveDocument.Shapes(i).Type = 13 Then ActiveDocument.Shapes(i).Width = 5*28.409 '将图片的宽设置为5cm ActiveDocument.Shapes(i).Height = 3*28.409 '将图片的高设置为3cm ' ActiveDocument.Shapes(i).Width =ActiveDocument.Shapes(i).Width*0.8'将图片的宽缩小20%为 ' ActiveDocument.Shapes(i).Height = ActiveDocument.Shapes(i).Height *0.8'将图片的高缩小20% End If Next MsgBox "图片尺寸调整完毕！" End sub 有关文件批量处理的功能需求，可参见我开发的《文件批量处理百宝箱V8.0》中的一些功能。

2.批量编辑Word中的图片

建议用PS 首先把这些图片放在一个文件夹里面（除了图片 最好不要包含别的文件或文件夹）

然后打开PS 先把一张要修改大小的照片拖进PS 点开历史记录——点击动作——在点击该对话框最下面那一排图标的的第5个小图标——点击记录（第2个小图标就会显示红色 表示开始记录）——

——按Shift+Ctrl+S储存为——点击保存——点击 是——然后就会出现一个 JPEG选项的对话框

中间有个可以拖动的小图标 （左小右大）——修改好你要的大小后 确定——按Ctrl+w（关闭）

——做到这一步之后就点击动作对话框最下面那排小图标的第一个 （点击后第二个图标不在显示

红色 表示停止记录）———按Ait+f+u+b（可分开按 批处理快捷键）然后出现批处理对话框——点击 选取

——找到照片所在的文件夹——确定—— 然后就可以去喝茶了 哈 大概2秒钟处理一张

很快的 希望采纳 我输入的好辛苦啊 哈 谢谢

3.word中如何批量修改图片大小

1、打开word，工具-宏-宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存 Subsetpicsize（) '设置图片大小 Dimn'图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px Next n End Sub3、返回word，工具-宏-宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间） word批量修改图片大小——按比例缩放篇 这部分要说的是把word中的所有图片按比例缩放！具体操作同上，只是代码部分稍做修改，代码如下：Subsetpicsize（) '设置图片大小 Dimn'图片个数 Dim picwidth Dim picheight On Error Resume Next '忽略错误 Forn = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍 ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍 Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍 ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍 Next n End Sub 虽然小一的代码不是好代码，但确实能解决小一的问题，瞬间就把word文档里所有图片放大了1.1倍，各种公式、坐标轴都比原来清楚多了， 自动批量处理Word中图片，主要完成的工作是：重置所有图片，对所有图片做裁剪。

代码很简单，但值得记录，以后可以参考。For Each iShape In ActiveDocument.InlineShapes '1cm = 28.35 pt Dim pic If iShape.Type = wdInlineShapePicture Then iShape.Reset iShape.PictureFormat.CropTop = 1.5 * 28.345 iShape.PictureFormat.CropBottom = 1.5 * 28.345 iShape.PictureFormat.CropLeft = 1.2 * 28.345 iShape.PictureFormat.CropRight = 1.2 * 28.345 End If Next iShape End Sub。

4.在word里如何批量修改图片大小

2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存Subsetpicsize（)'设置图片大小Dimn'图片个数On Error Resume Next'忽略错误Forn = 1ToActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400'设置图片高度为400pxActiveDocument.InlineShapes(n).Width = 300'设置图片宽度300pxNextnForn = 1ToActiveDocument.Shapes.Count'Shapes类型图片ActiveDocument.Shapes(n).Height = 400'设置图片高度为400pxActiveDocument.Shapes(n).Width = 300'设置图片宽度300pxNextnEnd Sub3、返回word ，工具-宏-宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间） 按比例缩放篇 具体操作同上，只是代码部分稍做修改，代码如下：Subsetpicsize（)'设置图片大小Dimn'图片个数 Error Resume Next'忽略错误Forn = 1ToActiveDocument.InlineShapes.Count 'InlineShapes类型图片picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 1.1'设置高度为 1.1倍ActiveDocument.InlineShapes(n).Width = picwidth * 1.1'设置宽度为 1.1倍NextnFor n = 1ToActiveDocument.Shapes.Count'Shapes类型图片picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument.Shapes(n).Height = picheight * 1.1'设置高度为 1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1'设置宽度为 ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= '左对齐：wdAlignParagraphLeft 注意：这里的Shapes(InlineShapes。