多种对象![]() |
由 Border 对象所组成的集合,该集合代表对象的边框。
用 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