word vba批量设置上下标

您可以使用以下VBA代码来批量设置选定文本的上下标：

Sub SetSuperscriptOrSubscript()
    '检查选定的文本是否为空
    If Selection.Text = "" Then
        MsgBox "请先选择要设置上下标的文本"
        Exit Sub
    End If
    
    '检查选定文本的上下标状态，并设置相反的状态
    If Selection.Font.Superscript = True Then
        Selection.Font.Superscript = False
        Selection.Font.Subscript = True
    ElseIf Selection.Font.Subscript = True Then
        Selection.Font.Subscript = False
    Else
        Selection.Font.Superscript = True
    End If
End Sub

在上面的代码中，我们首先检查选定的文本是否为空。如果是空的，则会出现一个消息框提示用户选择要设置上下标的文本。如果选定文本不为空，则会检查选定文本的上下标状态，并设置相反的状态。如果选定文本当前为正常文本，则将其设置为上标；如果选定文本当前为上标，则将其设置为下标；如果选定文本当前为下标，则将其设置为正常文本。

您可以将上面的代码复制并粘贴到Word文档的VBA编辑器中，或者将其保存为一个新的宏，并将其分配给快捷键或自定义工具栏按钮。然后，当您需要设置上下标时，只需选择要设置的文本并运行该宏即可。