Yes it is possible but it is always going to be slightly dodgy because we don't have exposure to your actual documents so we have to make a guess on what pattern is most robust to identify your 'List' area.
Change this line:
Set aRng = docCurrent.Bookmarks("ListArea").Range
to:
Set aRng = GetListRange(docCurrent)
and add this function to the module
Code:
Function GetListRange(aDoc As Document) As Range
Dim aRng As Word.Range, iStart As Long, iEnd As Long
Set aRng = aDoc.Range
With aRng.Find
.ClearFormatting
.Wrap = wdFindStop
.MatchCase = True
.MatchWildcards = False
.Text = "LIST"
If .Execute Then iStart = aRng.End
aRng.End = aDoc.Range.End
.Text = "ABSTRACT"
If .Execute Then iEnd = aRng.Start
If iEnd > iStart Then
Set GetListRange = aDoc.Range(iStart, iEnd)
End If
End With
End Function