Cataloging blocks of text

[gmaxey]

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