Word vba将选中内容除所选第一个字符外的内容改为上标

可以使用如下的VBA代码实现：
Sub ChangeToSuperscript()
Dim sText As String
Dim i As Integer

' 获取当前选中的文本
sText = Selection.Text

' 如果选中的文本不为空，且长度大于1，则进行转换
If Len(sText) > 1 Then
' 将第一个字符转换成上标
Selection.Characters(1, 1).Font.Superscript = True

' 将除第一个字符外的其他字符转换成上标
For i = 2 To Len(sText)
Selection.Characters(i, 1).Font.Superscript = True
Next i
End If
End Sub

使用方法：

将上述代码复制到 Word 的 VBA 编辑器中；
选中要进行转换的文本；
运行上述代码即可将选中的文本除第一个字符外的内容改为上标。

相关问题

Word vba将全文中特定字符除所选第一个字符外的内容改为上标，特定字符可输入并替换

以下是 Word VBA 代码，可以将全文中特定字符除所选第一个字符外的内容改为上标，你可以将代码中的 "特定字符" 替换为你想要匹配的字符。你也可以根据需要更改代码中的上标字体样式。
Sub ReplaceAndSuperscript()

Dim strFind As String
Dim strReplace As String
Dim oRange As Range
Dim oFont As Font
Dim bFound As Boolean

strFind = "特定字符"
strReplace = "^&"

Set oRange = ActiveDocument.Content

With oRange.Find
.Text = strFind
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
.Execute
End With

While oRange.Find.Found = True
bFound = False
Set oFont = oRange.Characters(1).Font

If oRange.Characters.Count > 1 Then
bFound = True
oRange.MoveStart wdCharacter, 1
oRange.MoveEnd wdCharacter, -1
oRange.Font.Superscript = True
End If

oRange.Collapse wdCollapseEnd

If Not bFound Then
oRange.Find.Execute
End If
Wend

oFont.Superscript = False

End Sub

使用方法：在 Word 中按下 Alt + F11 打开 VBA 编辑器窗口，在左侧的项目资源管理器中双击要编辑的文档，然后将代码复制并粘贴到右侧的代码窗口中。将 "特定字符" 替换为你想要匹配的字符，然后按 F5 执行代码。

Word vba全文自定义替换上标

可以通过以下代码实现Word VBA中的全文自定义替换上标：
Sub CustomReplaceSuperscript()
' 定义要替换的文本和替换后的文本
Dim strFind As String
Dim strReplace As String
strFind = "H2O"
strReplace = "H2O" & ChrW(&HB2)

' 执行全文替换
ActiveDocument.Range.Find.ClearFormatting
ActiveDocument.Range.Find.Replacement.ClearFormatting
With ActiveDocument.Range.Find
.Text = strFind
.Replacement.Text = strReplace
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
ActiveDocument.Range.Find.Execute Replace:=wdReplaceAll
End Sub

在上面的代码中，我们首先定义要替换的文本和替换后的文本，然后使用ActiveDocument.Range.Find来查找要替换的文本，并使用ActiveDocument.Range.Find.Execute Replace:=wdReplaceAll执行全文替换。
需要注意的是，在替换后的文本中，我们使用了ChrW(&HB2)来表示上标符号。如果需要替换其他上标字符，可以使用对应的Unicode码来表示。