Option ExplicitcMtoffice教程网

Sub SetSuperscriptAndSubscript(ByVal PrefixChr As String, ByVal SetChr As String, Optional ByVal SuperscriptMode As Boolean = True)cMtoffice教程网
'程序功能：设置文档中特定字符为上标或下标。cMtoffice教程网

'参数说明：cMtoffice教程网
'PrefixChr：必选参数，要设置为上、下标字符之前的字符；cMtoffice教程网
'SetChr：必选参数，要设置为上、下标的字符；cMtoffice教程网
'SuperscriptMode：可选参数，设置为 True 表示将 SetChr 设置为上标，设置为 False 表示将 SetChr 设置为下标，默认为 True。cMtoffice教程网

'举例说明：cMtoffice教程网
'我们要将文档中所有的“m3/s”中的“3”设置为上标，可通过下面这一行代码调用本程序完成：cMtoffice教程网
'SetSuperscriptAndSubscript "M","3" '这里设置上标，可省略第三个参数。cMtoffice教程网

Selection.Start = ActiveDocument.Paragraphs(1).Range.Start '将光标定位至活动文档第一段落段首的位置cMtoffice教程网
Selection.Collapse wdCollapseStart '折叠至起始位置cMtoffice教程网
With Selection.FindcMtoffice教程网
.ClearFormattingcMtoffice教程网
.Replacement.ClearFormattingcMtoffice教程网
.Text = PrefixChr & SetChrcMtoffice教程网
.Replacement.Text = "^&"cMtoffice教程网
If SuperscriptMode Then .Replacement.Font.Superscript = True Else .Replacement.Font.Subscript = TruecMtoffice教程网
.Execute Replace:=wdReplaceAllcMtoffice教程网

.ClearFormattingcMtoffice教程网
.Replacement.ClearFormattingcMtoffice教程网
.Text = PrefixChrcMtoffice教程网
If SuperscriptMode Then .Font.Superscript = True Else .Font.Subscript = TruecMtoffice教程网
.Replacement.Text = "^&"cMtoffice教程网
If SuperscriptMode Then .Replacement.Font.Superscript = False Else .Replacement.Font.Subscript = FalsecMtoffice教程网
.Execute Replace:=wdReplaceAllcMtoffice教程网
End WithcMtoffice教程网
End SubcMtoffice教程网