编写目的

由于工作需要，渗透测试报告中的图片需要进行特殊处理，在繁忙的工作中，处理诸多的图片成为了一项不得不解决而又费时的工作。

编写需求

将文档中所有的图片进行如下处理：去除缩进，居中，加0.75磅边框

解决方案

利用VBA编码进行图像处理

打开word文档

打开“视图-宏”

在弹出的对话框中，先输入名称后选择创建
在打开的窗口中插入代码

代码如下：

Sub image_processing()

    Dim oInlineShape As InlineShape

    Application.ScreenUpdating = False

    For Each oInlineShape InActiveDocument.InlineShapes

        With oInlineShape.Borders

        .OutsideLineStyle = wdLineStyleSingle

        .OutsideColorIndex = wdColorAutomatic

        .OutsideLineWidth = wdLineWidth075pt

        End With

    IfLen(oInlineShape.Range.Paragraphs(1).Range.Text) = 2 Then

        oInlineShape.Range.Paragraphs.Reset

        oInlineShape.Range.Paragraphs.Alignment= wdAlignParagraphCenter

    End If

    Next

    Application.ScreenUpdating = True

End Sub

保存以后，关闭窗口，打开“宏”

点击右边运行，即可完成全文图像处理

缺点：会将封面的公司图标一同修改，注意手动改回

来源：freebuf.com 2019-01-30 21:49:55 by: 凯信特安全团队