文本格式：设置上标和下标

使用Font对象的Superscript和Subscript属性将指定文本设置为上标和下标。下面定义文档中第10到15个字符为第1个字符序列，第20到23个字符为第2个字符序列，将第1个字符序列设置为上标，将第2个字符序列设置为下标。都用红色表示。

code.vba 
Sub Test()
  Dim doc As Document
  Set doc = Documents.Open("D:\test2.docx")

  Dim rng1 As Range
  Dim rng2 As Range
  Set rng1 = doc.Range(Start:=9, End:=15)
  Set rng2 = doc.Range(Start:=19, End:=23)
  rng1.Font.Superscript = True '上标
  rng2.Font.Subscript = True '下标
  rng1.Font.TextColor.RGB = 255
  rng2.Font.TextColor.RGB = 255
End Sub

设置效果如图3-12所示，字符序列1内文本设置为上标，字符序列2内文本设置为下标。为便于显示效果，字符序列内文字用二号字体显示。

Document Image

图3-12 将文本设置为上标或下标