文本格式：设置大小、加粗、倾斜、下划线和删除线

下面介绍字体常见的一些设置，包括字体大小、加粗、倾斜、下划线和删除线等，它们分别用到Font对象的Size, Bold, Italic, Underline, StrikeThrough和DoubleStrikeThrough等属性。

下面打开文档test2.docx，在其中定义2个字符序列，分别设置字体的属性。

code.vba 
Sub Test()
  Dim doc As Document
  Set doc = Documents.Open("D:\test2.docx")
  Set rng1 = doc.Range(20, 30) '字符序列1
  Set rng2 = doc.Range(35, 50) '字符序列2
  rng1.Font.Size = 30 '字体大小
  rng1.Font.Bold = True '加粗
  rng1.Font.StrikeThrough = True '删除线
  rng1.Font.Underline = True '下划线
  rng1.Font.TextColor.RGB = 255 '红色
  rng2.Font.Size = 20
  rng2.Font.Italic = True '倾斜
  rng2.Font.DoubleStrikeThrough = True '双删除线
  rng2.Font.ColorIndex = 4 '绿色
End Sub

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

Document Image

图3-11 设置字符序列内文本的字体