澹台君落
打开WORD，在”工具“菜单下选择”选项“命令。
在”选项“窗口中，在”编辑”选项卡下，将插入图片的格式选择为“四周型”，为什么要这么操作，因为默认插入图片的方式是嵌入式，使用“选择多个对象”命令时无法选择。
在“插入”菜单中选择“图片”/“来自文件”
在“插入图片“对话框中选择要插入的图片。
在“绘图”工具栏中的“添加或删除按钮”中选择“选中多个对象”
使用“选中多个对象”，将所有插入的图片全部选中。
双击任意一图片，在弹出的对话框中，将图片设置一固定尺寸，并取消下方的”锁定纵横比“命令。
这个时候会发现所有的图片都变成了统一尺寸大小了。
那么怎么样将这些图片导出来 在”文件“菜单中选择”另存为“命令。
在”另存为“对话框中将保存类型设置为”网页“，最后点击”确定“按钮保存文件。
打开刚刚保存的文件，右击在弹出的菜单选择以”大小“进行排序。
可以发现，修改的后的图片都是相同的尺寸了。
如何在word中批量处理图片
如何批量处理Word中的图片大小
用宏批量定位word中图片位置
我有一个word文档，里面有多幅图，但图片的缩进位置不统一，有些靠右，有些居中，有些靠左等等。
能否通过编制宏一次完成调整，让所有图片靠左，或居中。
我知道通过宏可以批量完成一个word中所有图片大小的修改，在次与大家共享，也希望可以给大家参考。
1、Alt+F8调出宏编辑窗口
2、点创建按钮，创建新宏，setpicsize,内容如下：
Sub setpicsize()
'设置图片大小
' 宏在 2008-3-31 由 hero_thm 录制
'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Height = 362 '设置高度
ActiveDocument.InlineShapes(j).Width = 481.87 '设置宽度
Next j
End Sub
3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cm
----------------------------------------
Sub setpicsize()
'设置图片大小
' 宏在 2008-3-31 由 hero_thm 录制
'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
If ActiveDocument.InlineShapes(j).Width > 480 Then
ActiveDocument.InlineShapes(j).Width = 400 '设置宽度
End If
Next j
End Sub
批量处理Word里面的照片
..
WORD怎么批量处理图片？
对于你的问题有点难办，由于你word里有100多张，处理起来很不便。 1.你先将word里的图片保存到一个文件夹 在菜单栏的【文件】另存为，在【保存类型】那里选择【筛选的网页】，提示的窗口点击是。这样就自动保存图片到一个文件夹。 2.批量变换大小 光影魔术手可以解决你这个问题，官方下载网站： http://www.neoimaging.cn/ 3.将图片放回word中
word2007如何批量处理图片
word2007批量处理图片,有些困难吧。
不过你可以用“迷你图片批量处理工具”批量处理图片，处理后再导入到Word2007中。
在WORD中怎样批量处理图片？？
好像没什么太好的方法.
你可以录制一个宏.再选择下一张图,按ALT+F8再来执行刚才录制的宏...算不上批量处理.但也可以省下一些繁琐的重复工作.
word怎样批量处理图片大小啊？
使用VBA：
Dim i
On Error Resume Next
For i=1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).Height=300 '修改为自己需要的值
ActiveDocument.InlineShapes(i).Width=200 '修改为自己需要的值
Next
For i=1 To ActiveDocument.Shapes.Count
ActiveDocument.Shapes(i).Height=300 '修改为自己需要的值
ActiveDocument.Shapes(i).Width=200 '修改为自己需要的值
Next
如何批量处理word中图片的格式，调节亮度和对比度？
还是让我帮你来出点子吧，怎么前面的都答非所问呢。
新建一个宏，将如下代码原样复制粘贴进入后按F5执行即可。
'Sub Macro1()
For i = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).PictureFormat.Brightness = 0.5 '将嵌入型图片的亮度设置为50
ActiveDocument.InlineShapes(i).PictureFormat.Contrast = 1#
'将嵌入型图片的对比度设置为100
Next i
For i = 1 To ActiveDocument.Shapes.Count
If ActiveDocument.Shapes(i).Type = msoPicture Then '假设浮动型对象是图片时才处理
ActiveDocument.Shapes(i).PictureFormat.Brightness = 0.5
'将浮动型图片的亮度设置为50
ActiveDocument.Shapes(i).PictureFormat.Contrast = 1#
'将浮动型图片的对比度设置为100
End If
Next i
Msgbox "处理完毕！"
'End Sub
今后也推荐你使用我开发的《文件批量处理百宝箱V8.0》中的一些批量处理功能。
转载请注明出处51数据库 » word照片批量处理 word批量处理图片
