word VBA将文档中特定字符设置为上标或下标

摘要：

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。

如何使word中公式与文字对齐

我们在写论文过程中，在Word文档里输入MathType写的公式，发现公式与文字不能很好得对齐问题，上下有偏差，很丑，让人很不爽；还有很多人发现使用MathType编辑的公式直接粘贴到Word里面，与

'举例说明：
'我们要将文档中所有的“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 VBA将文档中特定字符设置为上标或下标的下载地址：

本地下载

如何解决 word 编号与文本间距太宽难题

使用自动编号编排文档后，相信有许多小伙伴对Word中编号与正文之间过大的间隔距离恼火不已，不要上火，今天我将为大家一一分解。为什么间隔距离这么大？这是因为：使用编号时，系统