Hi!

I am a newer to VBA and I am working on a Word project where I have multiple content controls which are titled and tagged. For instance:

Procedure (Title: Procedure, Tag: 1.1) Rich Text
Findings (Title: Findings, Tag: 1.1) Rich Text
Priority (Title: Priority, Tag: 1.1) Drop Down List
Recommendation (Title: Recommendation, Tag: 1.1) Rich Text


Procedure (Title: Procedure, Tag: 1.2) Rich Text
Findings (Title: Findings, Tag: 1.2) Rich Text
Priority (Title: Priority, Tag: 1.2) Drop Down List
Recommendation (Title: Recommendation, Tag: 1.2) Rich Text

I am trying to print a list of the text in the content controls when the following criteria is met:
Priority is not "N/A"
Group and list by Priority value (Comment, Low, Moderate, High, Finding)
Procedure - Recommendation (where the procedure and recommendation have the same tag)

Currently, I have been working on the following which is basic, but does print the Recommendations that are populated to a new word document in a list. I am having an issue getting the correlation to combine the procedure and recommendation by tag and then list them grouped by priority. Thoughts on the complexity of this task?

Current code:
Sub GetCCTags()
Dim i As Long, ReccOut As String

Dim Index As String
With ActiveDocument

For i = 1 To .ContentControls.Count
If .ContentControls(i).Title = "Reccomendation" Then
ReccOut = ReccOut & vbCr & .ContentControls(i).Range.Text

End If

Next

End With
ReccOut = ReccOut

Documents.Add
ActiveDocument.Range.Text = ReccOut

End Sub