02

给多张图片批量添加边框

在排版长文档时，如果文档中有多张、甚至上百上千图片同时都需要添加边框，怎么办？这时候，我们可以利用宏批量为图片添加边框。

方法为：点击【视图】-【宏】按钮，然后选择”查看宏“命令，打开”宏“对话框，在”宏名“文本框中输入宏的名字，这里输入”picture“，再点击”创建“按钮。打开”宏代码“对话框，粘贴如下代码：

Sub Example

Dim oInlineShape As InlineShape

Application.ScreenUpdating = False

For Each oInlineShape In ActiveDocument.InlineShapes

With oInlineShape.Borders

.OutsideLineStyle = wdLineStyleSingle

.OutsideColorIndex = wdColorAutomatic

.OutsideLineWidth = wdLineWidth050pt

End With

Next

Application.ScreenUpdating = True

End Sub

然后保存宏，并执行宏命令，关闭窗口返回文档界面，即可查看到所有图片已添加了边框，最终效果如下图所示：

技巧提示：需要注意的是，Word文档中的图片必须是嵌入式图片，运行上述代码才能添加边框，否则无效。返回搜狐，查看更多