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.wps如何批量调整图片大小

方法/步骤

点击左上角wps文档的标记找到文档设置的选项，进行基本功能的设置，如图所示。

请点击输入图片描述

需要设置的是对编辑工具栏下方的图片插入默认形式，调整为四周型，如图所示，系统默认的是嵌入类型。设置完成点击确认。

请点击输入图片描述

然后是选中需要统一调整的图片，可以按住Ctrl逐个点击图片来操作，如图所示，选中即可。

请点击输入图片描述

点击图片菜单栏右下角的隐藏命令，调出图片设置的命令菜单界面，对图片进行设置。

请点击输入图片描述

把锁定纵横比和相对图片原始大小两个对勾都去掉，然后就可以自由设置图片大小了，因为插入的图片不一样大小，所以不能让他锁定。

请点击输入图片描述

手动输入想要同样的宽高数字，点击确定，进行统一的修改，如图所示。

请点击输入图片描述

最终设置效果如图所示，大小完全都一致了，工作效率提升了不少，希望能够帮助到大家。

请点击输入图片描述

3.用宏批量定位word中图片位置

帮你稍微修改了一下，使所有嵌入式图片居中。

对于所有图片，可以用ActiveDocument.Shapes.Count

注意：这里的Shapes(InlineShapes)不仅仅是指图片，也包含其它的，自选图形、任意多边形、OLE 对象、ActiveX 控件、图片等。

Sub setpicsize()

'设置图片大小

' 宏在 2008-3-31 由 hero_thm 录制

'

Dim j '计数图片个数

For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes

ActiveDocument.InlineShapes(j).Select '选中图片

Selection.ParagraphFormat.Alignment = '图片居中；wdAlignParagraphLeft左对齐

Next j

End Sub

上面，我补充的语句，其实也是录制宏的方式，生成的。（先选中图片，再点居中按钮）

另外，学习宏，多看看Word自带的帮助文档吧。

==========2008-4-16========

Sub setpicsize()

'

Dim j '计数图片个数

For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型也可以为shapes

ActiveDocument.InlineShapes(j).Select '选中图片

'ActiveDocument.InlineShapes(j).Range.Paragraphs(1).Range.Select '上一行不行，用这个

With Selection.ParagraphFormat '所选段落的格式

.Alignment = '图片居中

.LeftIndent = 0 '左缩进磅数

.RightIndent = 0 '右缩进磅数

.FirstLineIndent = 0 '首行缩进磅数

. = 0 '左缩进字符数

. = 0 '右缩进字符数

. = 0 '首行缩进字符数

End With

Next j

End Sub