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

如果一个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

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

转自:http://www.that5.com/office-share-tips.html

发表评论

电子邮件地址不会被公开。 必填项已用*标注

“批量更改Word文档内图片宽度”的4个回复

    1. 方法是别人那转过来的,我只是测试代码可用,估计别人那也是别人别人那转的,所以只能你自己试试了。是Height

  1. 我找着了,批量修改高度与宽度,在不锁定图本框纵横比情况下:
    Sub AdjustPicWidthAndHeight()


    ‘AdvertisePublishAs 宏
    ‘将广告发布导出为PDF和XPS
    ‘Sub setpicsize()’设置图片大小
    Dim n’图片个数
    On Error Resume Next’忽略错误
    For n=1 TO ActiveDocument.InlineShapes.Count’ InlineShapes类型图片
    ActiveDocument.InlineShapes(n).LockAspectRatio=msoFalse’不锁定图片的纵横比

    ActiveDocument.InlineShapes(n).Heihgt=300’设置图片高度为300px
    ActiveDocument.InlineShapes(n).Width=400’设置图片宽度为400px
    Next n
    For n=1 TO ActiveDocument.Shapes.Count’Shapes类型图片
    ActiveDocument.InlineShapes(n). LockAspectRatio=msoFalse’不锁定图片的纵横比
    ActiveDocument.InlineShapes(n).Heihgt=300’设置图片高度为300px
    ActiveDocument.InlineShapes(n).Width=400’设置图片宽度为400px
    Next n
    End Sub

    注意:其中图片高度、宽度量的设置修改为自己想要的大小,本宏编辑中为像素,经本人实验可以为cm,但是需要转化。
    还有固定纵横比及其他批量处理格式方法,大概大同小异了