文本格式：设置外框

用Range对象的Borders属性返回字符序列指定类型的边。语法格式为：

code.vba 
Set bd=rng.Borders(BorderType)

其中，rng表示字符序列对象，BorderType为表示边框类型的值或常数，如表3-4中所示，bd为返回的Border对象。

表3-4 边框类型

名 称 值 常 数
底边框线 -3 wdBorderBottom
左边框线 -2 wdBorderLeft
右边框线 -4 wdBorderRight
上边框线 -1 wdBorderTop

下面打开文档test2.docx，将第1段和第2段定义为字符序列。获取该字符序列的4条边框，均可见。顶边线设置为点线，底边线设置为波浪型双实线。

code.vba 
Sub Test()
  Dim doc As Document
  Set doc = Documents.Open("D:\test2.docx")
  Dim rng As Range
  Set rng = doc.Range(Start:=doc.Paragraphs(1).Range.Start, End:=doc.Paragraphs(2).Range.End)
  Dim bd1 As Border, bd2 As Border
  Dim bd3 As Border, bd4 As Border
  Set bd1 = rng.Borders(wdBorderLeft)
  Set bd2 = rng.Borders(wdBorderRight)
  Set bd3 = rng.Borders(wdBorderBottom)
  Set bd4 = rng.Borders(wdBorderTop)

  bd1.Visible = True
  bd2.Visible = True
  bd3.Visible = True
  bd4.Visible = True

  bd1.LineStyle = wdLineStyleDashDot
  bd1.ColorIndex = wdBlue
  bd1.LineWidth = wdLineWidth050pt
End Sub

设置效果如图3-13所示。

Document Image

图3-13 设置字符序列的边框属性