返回首页
当前位置: 主页 > 精通Office > Word教程 >

如何批量更改Word文档内图片宽度

时间:2018-12-20 23:21来源:知行网www.zhixing123.cn 编辑:麦田守望者

如果一个word文档中有n张大小不一的图片,你想统一图片宽度,该怎么办呢?有如下三个办法:

1、一张一张图片的去点,然后设置图片格式,修改图片宽度大小。

很显然,上面的这种方法不需要我介绍,这回关键要介绍的是下面的两种方法:

2、使用【查找和替换】(快捷键:ctr+H)功能进行特殊替换:

查找和替换】在查找内容(N)中输入:^g(也就是图形,可以在高级选项下的特殊字符里选择),替换为(I)的输入框下选择:高级选项下的格式里的图文框(设定需要的宽度,居中)。具体操作可看下面图片中演示。

批量更改Word里的图片宽度

据说这个方法也有可能出现悲剧,未具体测试。

3、最快的方法:使用宏。

工具】->【】->【】输入“设置图片大小”,然后点击创建,用下面的代码覆盖,保存。

然后在需要批量修改图片宽度的word文档里运行这个宏。

Sub 设置图片大小()
'
' 设置图片大小 宏
'
'
Dim n
On Error Resume Next '忽略错误,可以根据情况要与不要
For n = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(n).Width = 340 '设置图片宽度,注意类型
ActiveDocument.InlineShapes(n).Range.Paragraphs(1).Range.Select '选中图片
With Selection.ParagraphFormat '所选段落的格式
.Alignment = wdAlignParagraphCenter '图片居中
.LeftIndent = 0 '左缩进磅数
.RightIndent = 0 '右缩进磅数
.FirstLineIndent = 0 '首行缩进磅数
.CharacterUnitLeftIndent = 0 '左缩进字符数
.CharacterUnitRightIndent = 0 '右缩进字符数
.CharacterUnitFirstLineIndent = 0 '首行缩进字符数
End With
Next n
For n = 1 To ActiveDocument.Shapes.Count
ActiveDocument.Shapes(n).Width = 340 '设置图片宽度,注意类型
Next n
End Sub

记得修改代码里的图片宽度大小。

------分隔线----------------------------
标签(Tag):Word
------分隔线----------------------------
推荐内容
猜你感兴趣