使用VBA宏替换选中字符时的范围问题及修复方案

我希望将选中的星号字符转换为上标星号。选中范围至关重要，因为我不想破坏整个文档。

最初尝试的代码如下：

Sub Superstarv4()
' makes all selected asterisks superscripted
    Dim selRange As Range

    ' Check if text is selected
    If Selection.Type = wdSelectionIP Then
        MsgBox "No text selected. Please select some text.", vbExclamation
        Exit Sub
    End If

    ' Set selRange to the selected range
    Set selRange = Selection.Range

    ' Apply formatting only to the selected range
    With selRange.Find
        .ClearFormatting
        .Text = "*"  ' Find asterisks
        .Replacement.ClearFormatting
        .Replacement.Font.Superscript = True  ' Format as superscript
        .Execute Replace:=wdReplaceAll
    End With
End Sub

实际使用中发现问题：当仅选中一个星号字符时，该代码会将整个文档中所有的星号都转换为上标。所有VBA替换操作都存在这个问题，我另一段将逗号转为句号的代码也有同样的问题。

修复方案 #

以下是快速修复后的代码：

Sub Superstarv5()
    ' Check if text is selected
    If Selection.Type = wdSelectionIP Then
        MsgBox "No text selected. Please select some text.", vbExclamation
        Exit Sub
    End If

    Dim selRange As Range
    Set selRange = Selection.Range

    ' Ensure the range is valid and has text
    If selRange.Text = "" Then
        MsgBox "Selected text is empty. Please select some text.", vbExclamation
        Exit Sub
    End If

    ' Count the number of asterisks in the selected text
    Dim asteriskCount As Long
    asteriskCount = Len(selRange.Text) - Len(Replace(selRange.Text, "*", ""))

    ' Check if there is more than one asterisk
    If asteriskCount <= 1 Then
        MsgBox "Selected text does not contain more than one asterisk. No formatting applied.", vbInformation
        Exit Sub
    End If

    ' Apply superscript formatting only to the selected range
    With selRange.Find
        .ClearFormatting
        .Text = "*"  ' Find asterisks
        .Replacement.ClearFormatting
        .Replacement.Font.Superscript = True  ' Format as superscript
        .Execute Replace:=wdReplaceAll
    End With
End Sub

该代码确保用户选中了至少两个星号实例后才执行替换操作，避免了仅选单个星号时误改整个文档的问题。

内容的提问来源于stack exchange，提问作者fromdreams