Sub PromptRegExReplace()
    Dim regEx As Object
    Dim match As Object
    Dim matches As Object
    Dim rng As Range
    Dim response As Integer
    Dim replacementText As String

    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "([0-9])"
    regEx.Global = True

    ' Get the current cursor position
    Dim cursorPosition As Long
    cursorPosition = Selection.Start

    ' Set the range to start from the cursor position until the end of the document
    Set matches = regEx.Execute(ActiveDocument.Range(cursorPosition, ActiveDocument.Range.End).text)
    replacementText = "$1abc"

    For Each match In matches
        Set rng = ActiveDocument.Range(match.FirstIndex + cursorPosition, match.FirstIndex + match.Length + cursorPosition)
        rng.Select
        response = MsgBox("Replace this instance?", vbYesNoCancel)
        If response = vbYes Then
            Application.ScreenUpdating = False
            rng.text = regEx.replace(rng.text, replacementText)
            Application.ScreenUpdating = True

        ElseIf response = vbCancel Then
            Exit Sub
        End If
    Next match

End Sub