If that is all you want to do then you could wrap your blocks of text in richtext CCs and use the tag property to define that CC as a monitored CC and ID the text block
E.g., your CC tags would look something like this "Monitor|USC 9.1.1", "Monitor|CA 123" etc.
Run this code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 3/26/2018
Dim oCC As ContentControl
Dim arrTagParts() As String
Dim strReport As String
For Each oCC In ActiveDocument.ContentControls
arrTagParts = Split(oCC.Tag, "|")
If UBound(arrTagParts) > 0 Then
If arrTagParts(0) = "Monitor" Then
strReport = strReport & arrTagParts(1) & vbCr
End If
End If
Next oCC
MsgBox strReport
lbl_Exit:
Exit Sub
End Sub