word文档怎么添加边框

发布网友发布时间：2022-02-25 13:54

共1个回答

热心网友时间：2022-02-25 15:23

第一种：常规设置法

选中图片，点击格式——图片样式——边框，选择相应的粗细，对于之后的边框，可以借用F4键来实现。

PS：遇到图片数量不多的，可以用这种方法，若多则建议用第二种。

第二种：VBA法

点击开发工具——VBA——插入——模块，之后在输入以下代码：

Sub 图片边框

Dim tupian As InlineShape

Application.ScreenUpdating = True

For Each tupian In ActiveDocument.InlineShapes

With tupian.Borders

.OutsideLineStyle = wdLineStyleSingle

.OutsideColorIndex = wdDarkBlue

.OutsideLineWidth = wdLineWidth150pt

End With

Next

Application.ScreenUpdating = False

End Sub

随后按F5或者点击选项卡中运行子过程即可运行。

代码说明如下图所示：

PS：

1、 Application.ScreenUpdating = True和 Application.ScreenUpdating = False是成对出现，表示如果屏幕更新已启用，显示的是True，否则是False，一般情况下，禁用屏幕更新可以加快宏代码的速度。若将Application.ScreenUpdating = False语句放在前面，完成之后将相应属性设置为True即可。

2、如果选项卡中没有开发工具，可以在自定义功能选项中找到，如下图所示：

首页

文章

word文档怎么添加边框