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

LMS
Excel
1.7K+ 4

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

THE END

评论 4

  1. jing_h
    🏅

    我找着了，批量修改高度与宽度，在不锁定图本框纵横比情况下：
    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，但是需要转化。
    还有固定纵横比及其他批量处理格式方法，大概大同小异了

  2. jing_h
    🏅

    那如何修改高度？是否将width改为heigh就可以了？请楼主告之，非常感谢了

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

发表评论

Submit