更改单词宏以仅扫描选定的文本（以节省大型文档的时间）

Question

我使用了下面的宏，效果很好！但是，是否可以将其限制为我在活动文档中选择的文本？单独的文档有 2000 个单词，所以如果活动文档的文本太多，它会花费很长时间......即使我可能只想扫描 100 个单词以突出显示......如果有人可以提供帮助，非常感谢！

Sub B2_Highlighter_Selection_andAllWordForms()
    Application.ScreenUpdating = False
    Options.DefaultHighlightColorIndex = wdBrightGreen
    Dim FRDoc As Document, FRList, i As Long
    Set FRDoc = Documents.Open("C:\Users\Milan van Bree\Google Drive\Heerbeeck College\3. Extra materiaal algemeen\Macros for Word\B2words.docx", ReadOnly:=True, Addtorecentfiles:=False, Visible:=False)
    FRList = FRDoc.Range.Text: FRDoc.Close False: Set FRDoc = Nothing
    With Selection.Range.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .MatchWholeWord = True
        .MatchCase = False
        .Replacement.Text = "^&"
        .Replacement.Highlight = True
        'Process each word from the List
        For i = 0 To UBound(Split(FRList, vbCr)) - 1
            .Text = Split(FRList, vbCr)(i)
            .Execute Replace:=wdReplaceAll
        Next
    End With
    Application.ScreenUpdating = True
End Sub

我试着用谷歌搜索它，我确实找到了一些答案，但这并没有用我的特定宏类型计算，它突出显示了存储在单独文档中的单词。