- word怎么删除空白页:word如何进入修改批注模式?
- WORD上下页:如何撤销word里的自动换行?
- word幻灯片制作教程:使用Word2003的EQ域代码制作音乐简谱
- word制作表格教程基础入门:Word2007中实现小数点对齐
Sub SetSuperscriptAndSubscript(ByVal PrefixChr As String, ByVal SetChr As String, Optional ByVal SuperscriptMode As Boolean = True)
'程序功能:设置文档中特定字符为上标或下标。
'参数说明:
'PrefixChr:必选参数,pdf怎么转换成word,怎么删除word空白页,要设置为上、下标字符之前的字符;
'SetChr:必选参数,要设置为上、下标的字符;
'SuperscriptMode:可选参数,word办公软件使用教程,设置为 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
本地下载
上一篇:电脑word表格制作教程:如何解决 word 插入公示后行距变大的问题 下一篇:word做表格教程基本操作:如何使word中公式与文字对齐
郑重声明:本文版权归原作者所有,转载文章仅为传播更多信息之目的,如作者信息标记有误,请第一时间联系我们修改或删除,多谢。