Word vba全文自定义上标，替换位置可输入

您可以使用以下代码实现全文自定义上标：

Sub CustomSuperscript()
    Dim rng As Range
    Dim supText As String
    Dim supSize As Integer
    
    '获取要替换的文本
    supText = InputBox("请输入要替换为上标的文本：")
    
    '获取上标字体大小
    supSize = InputBox("请输入要使用的上标字体大小：")
    
    '设置查找范围为整个文档
    Set rng = ActiveDocument.Range
    
    '循环查找并替换上标
    With rng.Find
        Do While .Execute(findText:=supText, MatchWholeWord:=True) = True
            rng.Font.Superscript = True
            rng.Font.Size = supSize
        Loop
    End With
End Sub

运行该宏后，会弹出两个对话框，分别让您输入要替换为上标的文本和上标字体大小。然后，该宏会在整个文档中查找并替换上标。

另外，如果您想要替换的位置可输入，可以将上述代码中的`supText`改为从用户输入的地方获取文本。例如，您可以在用户输入要替换的文本时，将其保存到一个变量中，然后将该变量作为`supText`的值。这样，用户就可以在运行宏时自由选择要替换为上标的文本了。