-
Printing List of Content Control Text
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
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules