Question

多种对象 Borders (Border)

由 Border 对象所组成的集合，该集合代表对象的边框。

使用 Borders 集合

用 Borders 属性可返回 Borders 集合。下面示例将默认的边框添加在活动文档首段的四周。

ActiveDocument.Paragraphs(1).Borders.Enable = True

不能在 Borders 集合中添加 Border 对象。在 Borders 集合中元素的数量是有限制的，并且因对象的类型不同而异。例如，在 Borders 集合中，表格有六个元素，而段落有四个元素。

用 Borders(index)，可返回单个 Border 对象，其中index 用来标识边框。Index 可取下列 WdBorderType 常量之一：wdBorderBottom、wdBorderDiagonalDown、wdBorderDiagonalUp、wdBorderHorizontal、wdBorderLeft、wdBorderRight、wdBorderTop 或 wdBorderVertical。由于所选择或安装的语言支持（例如美国英语）不同，有些常量可能不可用。可用 LineStyle 属性设置 Border 对象的框线类型。下列示例在活动文档首段的底端添加一个双线边框。

With ActiveDocument.Paragraphs(1).Borders(wdBorderBottom)
 .LineStyle = wdLineStyleDouble
 .LineWidth = wdLineWidth025pt
End With

下列示例将单线边框加在选定内容的首字符四周。

With Selection.Characters(1)
 .Font.Size = 36
 .Borders.Enable = True
End With

下列示例在第一节中每一页的四周添加艺术型边框。

For Each aBorder In ActiveDocument.Sections(1).Borders
 With aBorder
 .ArtStyle = wdArtSeattle
 .ArtWidth = 20
 End With
Next aBorder