文本格式：设置字面填充

默认时，文档中的字体是单色的，使用Font对象的Fill属性返回FillFormat对象，使用该对象的方法和属性可以对字面进行渐变色填充。使用OneColorGradient方法进行单色渐变填充，用TwoColorGradient方法进行双色渐变填充。 [大谦Excel，dqexcel点com]

单色渐变填充需要指定FillFormat对象的ForeColor属性的值，即指定前景色，然后利用前景色与白色之间作渐变填充。渐变填充有水平渐变、垂直渐变、对角线渐变等多种方式，用方法的参数进行指定。下面在打开的文档中定义一个字符序列，设置字面前景色为红色，用OneColorGradient方法进行对角线单色渐变填充。

code.vba 
Sub Test()
  Dim doc As Document
  Set doc = Documents.Open("D:\test2.docx")
  Dim rng As Range
  Set rng = doc.Range(Start:=26, End:=40)
  rng.Font.Size = 40
  rng.Font.Bold = True
  rng.Font.Fill.ForeColor.RGB = 255
  rng.Font.Fill.OneColorGradient msoGradientVertical, 1, 1
End Sub

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

Document Image

图3-14 字面单色渐变填充

使用FillFormat对象的TwoColorGradient方法进行双色渐变填充。使用该方法前先设置字面填充的前景色，使用方法后设置字面填充的背景色，它们作为渐变色的两端进行设置。

code.vba 
Sub Test2()
  Dim doc As Document
  Set doc = Documents.Open("D:\test2.docx")
  Dim rng As Range
  Set rng = doc.Range(Start:=26, End:=40)
  rng.Font.Size = 40
  rng.Font.Bold = True
  rng.Font.Fill.ForeColor.RGB = 255
  rng.Font.Fill.TwoColorGradient msoGradientVertical, 1
  rng.Font.Fill.BackColor.RGB = wdColorGreen
End Sub

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

Document Image

图3-15 字面双色渐变填充