- ·上一篇教育:word打不开现象如何回事,如何回事,打不开,现象
- ·下一篇教育:word如何截gif
word如何批处理格式,批处理,格式
1.如何在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
2.如何在Word 2007文档批量设置图片格式?
1.嵌入式图片
操作系统中如果文档中的图片,选中后四周出现了8个黑色的控制块,如图1所示,那么就表示这些图片是属于嵌入式的。
图1
对于嵌入式的图片,无论是Word 2007或是Word 2003,win7旗舰版都可以直接打开“查找和替换”对话框,先将“查找内容”设置为“^g”,然后将光标定位到“替换”的文本框中,首先单击“更多”按钮,此时可以看到搜索选项、格式、特殊格式等内容,从格式的下拉菜单中选择“图文框”,将水平位置设置为居中,win7然后返回“查找和替换”对话框,单击“全部替换”按钮后即可生效(见图2)。
图2
2.环绕式图片
如果深度xp系统下载文档中的图片,如图3所示,选中后四周出现的是8个蓝色的控制块(Word 2003则显示为白色),那么就表示这些图片是属于环绕式的。
图3
①Word 2003
Ghost xp sp3对于环绕式图片的批量处理,首先需要选中文档中的某个图片,此时xp系统会自动激活图片工具栏,然后请右击选择“自定义”,如图4所示,将“选中多个对象”这个命令添加到图片工具栏上。
图4
接下来,我们就可以单击此按钮,此时windows7系统下载会弹出图5所示的对话框,可以看到这里默认选中的当然还是刚才所选择的图片,xp现在只需要在这里单击“全选”按钮即可将当前文档中的所有图片全部选中。
图5
②Word 2007
操作与Word 2003基本相似,我们仍然需要打开“Word选项→自定义”对话框,系统下载首先请将“从下列位置选择命令”设置为“所有命令”,然后找到“”,将其添加到快速访问工具栏中,以后就可以通过这个按钮快速选中文档中的所有环绕式图片了(见图6)。
3.word如何批量设置图片或自选图形格式
嵌入式图片、环绕式图片的辨认这个就不用说了吧?1、嵌入式图片对嵌入式的图片,直接打开“查找和替换”对话框,先将“查找内容”设置为“^g”,然后将光标定位到“替换”的文本框中,首先单击“更多”按钮,此时可以看到搜索选项、格式、特殊格式等内容,从格式的下拉菜单当选择“图文框”,将水平位置设置为居中,然后返回“查找和替换”对话框,单击“全部替换”按钮后便可生效。
2、环绕式图片WORD2003:对环绕式图片的批量处理,首先需要选中文档中的某个图片,此时会自动激活图片工具栏,然后请右击选择“自定义”。将“选中多个对象”这个命令添加到图片工具栏上。
接下来,就能够单击此按钮,此时会弹出对话框,可以看到这里默许选中确当然还是刚才所选择的图片,现在只需要在这里单击“全选”按钮便可将当前文档中的所有图片全部选中。
4.word中如何将大量图片批处理统一的尺寸大小
选择工具——宏——宏(Alt+F8调出宏编辑窗口),输入宏名——(非数字)——创建; 在Sub 宏名()与End Sub之间编写如下代码:(之后单击运行即可) Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 ActiveDocument.InlineShapes(n).Height = 99 '设置图片高度为 99px ActiveDocument.InlineShapes(n).Width = 71 '设置图片宽度 71px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 ActiveDocument.Shapes(n).Height = 99 '设置图片高度为 99px ActiveDocument.Shapes(n).Width = 71 '设置图片宽度 71px Next n。
5.word怎么批量处理相片
在Word中,同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码: Sub xx() Dim xPic As InlineShape For Each xPic In ThisDocument.InlineShapes xPic.LockAspectRatio = msoTrue xPic.Width = xPic.Width / 2 Next End Sub 在此界面直接按F5运行此宏,图片大小变为原来的1/4。
如果想变为原来的1/9,请把粗体的2改为3. 能帮到你的话,望采纳最佳哦。