word里如何批量处理的大小

1. 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

2. 如何批量处理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

3. 如何在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

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中批处理图片大小

Sub 统一图片尺寸（） Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = CentimetersToPoints(4) '高度4cmActiveDocument.InlineShapes(n).Width = CentimetersToPoints(3) '宽度3cmNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = CentimetersToPoints(4) '高度4cmActiveDocument.Shapes(n).Width = CentimetersToPoints(3) '宽度3cmNext nEnd Sub以上是统一图片大小的宏代码希望你能用得上。

ps：代码中的图片尺寸可以根据需要进行修改。

转载请注明出处51数据库 » word里如何批量处理的大小