用VBA统一修改word文档中的图片格式

weiqigreen

已于 2023-12-16 15:51:24 修改

阅读量1.3k

点赞数 11

分类专栏： VBA办公自动化文章标签： word

于 2023-12-16 15:49:20 首次发布

本文链接：https://blog.csdn.net/weiqigreen/article/details/135033696

版权

VBA办公自动化专栏收录该内容

10 篇文章

订阅专栏

一、问题背景：

有一个很长的总结报告，100页左右。里面的图片格式比较乱，需要统一改为单倍行距、居中对齐、去掉首行缩进、统一长宽尺寸。

二、用VBA来解决，思路就是遍历，逐一修改。

Sub 图片格式()
  Dim pic As InlineShape  '定义pic
    For Each pic In ActiveDocument.InlineShapes  '遍历每一张嵌入的图片
        With pic.Range.ParagraphFormat           '设置图片所在段落格式
            .LineSpacingRule = wdLineSpaceSingle '单倍行距
            .CharacterUnitFirstLineIndent = 0    '首行空0字符
            .FirstLineIndent = CentimetersToPoints(0) '首行缩进0磅，注意要和上面的0字符同时使用，否则不行
            .Alignment = wdAlignParagraphCenter  '居中对齐
        End With
        pic.LockAspectRatio = msoFalse 'msoTrue  '是否锁定长宽比
        pic.Height = 6 * 28.345                  '设置长宽，把厘米转化为磅值
        pic.Width = 8 * 28.345
    Next
End Sub