Hi,

You can use something like the following:

Dim oRngStart As Range
Dim oRngEnd As Range
Dim oRngToCopy As Range
With Selection
   .HomeKey Unit:=wdStory
   With .Find
       .ClearFormatting
       .Text = "A)"
       .Execute
       
       Set oRngStart = Selection.Range
       Selection.MoveRight
       
       .Text = "B)"
       .Execute
       Set oRngEnd = Selection.Range
   End With
End With
       
Set oRngToCopy = ActiveDocument.Range(Start:=oRngStart.End,
End:=oRngEnd.Start)
oRngToCopy.Select

HTH,
Dave