时间：2020-05-20 18:13作者：admin来源：未知人气：796我要评论(0)
Option Explicit
Sub SetSuperscriptAndSubscript(ByVal PrefixChr As String, ByVal SetChr As String, Optional ByVal SuperscriptMode As Boolean = True)
'程序功能：设置文档中特定字符为上标或下标。
'参数说明：
'PrefixChr：必选参数，要设置为上、下标字符之前的字符；
'SetChr：必选参数，要设置为上、下标的字符；
'SuperscriptMode：可选参数，设置为 True 表示将 SetChr 设置为上标，设置为 False 表示将 SetChr 设置为下标，默认为 True。
'举例说明：
'我们要将文档中所有的“m3/s”中的“3”设置为上标，可通过下面这一行代码调用本程序完成：
'SetSuperscriptAndSubscript "M","3" '这里设置上标，可省略第三个参数。
Selection.Start = ActiveDocument.Paragraphs(1).Range.Start '将光标定位至活动文档第一段落段首的位置
Selection.Collapse wdCollapseStart '折叠至起始位置
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = PrefixChr & SetChr
.Replacement.Text = "^&"
If SuperscriptMode Then .Replacement.Font.Superscript = True Else .Replacement.Font.Subscript = True
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = PrefixChr
If SuperscriptMode Then .Font.Superscript = True Else .Font.Subscript = True
.Replacement.Text = "^&"
If SuperscriptMode Then .Replacement.Font.Superscript = False Else .Replacement.Font.Subscript = False
.Execute Replace:=wdReplaceAll
End With
End Sub
相关阅读 12Word 样式Word 使用模板Word 目录Word 打印预览文档Word 文档比较Word 文档安全性Word 设置水印Word 快捷键大全word段落间距怎么设置
热门文章
word表格中有一段空白处却不能输入文字，是怎么回事？
九九乘法口诀表 可以下载直接打印使用(Word/PDF版)
word 表格设置浅色底纹强调文字颜色两种方法
如何利用word制做思维导图
最新文章
12
Word 样式
Word 使用模板Word 目录Word 打印预览文档Word 文档比较
人气排行 word表格中有一段空白处却不能输入文字，是怎么回事？九九乘法口诀表 可以下载直接打印使用(Word/PDF版)word 橡皮擦在哪里? 橡皮擦的功能和使用方法word 表格设置浅色底纹强调文字颜色两种方法如何利用word制做思维导图word 如何设置某一页为横向页面word2016免费中文激活版下载 word2016官方免费完整版下载word字体颜色深浅不一怎么办
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>