Finding specific Content Control based on both title and tag

[ZaSpai]

I am a VBA novice using Office 2010.

I have a macro enabled document with all private subroutines under the ThisDocument module. The document has a series of content controls titled and tagged in a 2-dimension array like fashion, such as:



[.Title = "1", .Tag = "a"], [.Title = "1", .Tag = "b"], [.Title = "1", .Tag = "c"],
[.Title = "2", .Tag = "a"], [.Title = "2", .Tag = "b"], [.Title = "2", .Tag = "c"],
[.Title = "3", .Tag = "a"], [.Title = "3", .Tag = "b"], [.Title = "3", .Tag = "c"]

(The main reason for this is so I can run subroutines to clear the data in the content controls based on .Title or .Tag respectively.)

I am writing code for the Document_ContentControlOnExit state, where I want to use the title of the content control being exited as a reference to select a certain other content control with the same title but a different tag.

Example - I want to select the content control [.Title = "1", .Tag = "b"] to perform an operation on, by using the title of content control [.Title = "1", .Tag = "a"] on exit.

My present thought process was to limit my initial subset of ContentControls to .Title = "1" with SelectContentControlsByTag, and then select the content control with .Tag = "b" - I am unclear how I would do this based on what I have read on the online Microsoft VBA documentation. A failed approach follows: (error is "Compile error: Method or data error not found" pointing to the last line of code)

Private Sub Document_ContentControlOnExit(ByVal oCC As ContentControl, Cancel As Boolean)
Dim i as String, iCC As ContentControls, jCC As ContentControl
 
i = oCC.Title
 
With oCC
    If .Tag = "a" Then
        Set iCC = ActiveDocument.SelectContentControlsByTag("b")
        Set jCC = iCC.SelectContentControlsByTitle(i)(1)

Is there a method by which I can query both .Tag and .Title simultaneously to find the content control of interest, or am I restricted to filtering based on one at a time? If the latter, how would I choose the correct control and how would this be coded (compared with my attempt above)?

===

On a similar note, I wish to run a subroutine where operations are done in sequential order with reference to .Title,
-> e.g. edit data of [.Title = "1", .Tag = "b"], then edit data of [.Title = "2", .Tag = "b"], etc.), with .Title being the dynamic variable and .Tag being constantly "b" in this example.

My content control titles unfortunately are not in a complete numerical series (they run 1-12, E, F, then 19-20), and given they are strings I am unsure if a For statement would work. Would using a Select Case work best in this instance?

[macropod]

It's not exactly clear what determines the decision to process by tag or title. Perhaps something along the lines of:

Private Sub Document_ContentControlOnExit(ByVal oCC As ContentControl, Cancel As Boolean)
Dim i As Long
With ActiveDocument
  Select Case oCC.Tag
    Case "a"
      For i = 1 To .SelectContentControlsByTag(oCC.Title).Count
        .SelectContentControlsByTag(oCC.Title)(i).Range.Text = ""
      Next
  End Select
End With
End Sub

or:

Private Sub Document_ContentControlOnExit(ByVal oCC As ContentControl, Cancel As Boolean)
Dim i As Long
With ActiveDocument
  For i = 1 To .SelectContentControlsByTag(oCC.Tag).Count
    .SelectContentControlsByTag(oCC.Tag)(i).Range.Text = ""
  Next
End With
End Sub

[gmayor]

I would be inclined to do somethiung like the following where you could setup the conditions for all the controls you want to process in this way. Here I have just processed those with the title '1".

Private Sub Document_ContentControlOnExitold(ByVal oCC As ContentControl, Cancel As Boolean)
Dim jCC As ContentControl

    With oCC
        If .Title = "1" Then
            Select Case .Tag
                Case Is = "a"
                    For Each jCC In ActiveDocument.ContentControls
                        If jCC.Title = "1" And jCC.Tag = "b" Then
                            jCC.Range.Select
                            Exit For
                        End If
                    Next jCC
                Case Is = "b"
                    For Each jCC In ActiveDocument.ContentControls
                        If jCC.Title = "1" And jCC.Tag = "c" Then
                            jCC.Range.Select
                            Exit For
                        End If
                    Next jCC
                Case Is = "c"
                    For Each jCC In ActiveDocument.ContentControls
                        If jCC.Title = "2" And jCC.Tag = "a" Then
                            jCC.Range.Select
                            Exit For
                        End If
                    Next jCC
            End Select
        End If
    End With
End Sub

[gmaxey]

I think the answer to your question is "no" you can't query both .Tag and .Title simultaneously to find the content control of interest.


For what is seems to me you are trying to do though, something like this might do.

Private Sub Document_ContentControlOnExit(ByVal oCC As ContentControl, Cancel As Boolean)
Dim collCCs As ContentControls
Dim oCCTarget As ContentControl
  Select Case oCC.Tag
    Case "a"
      Set collCCs = ActiveDocument.SelectContentControlsByTag("b")
      For Each oCCTarget In collCCs
        If oCCTarget.Title = oCC.Title Then
          oCCTarget.Range.Select
          Exit For
        End If
      Next
  End Select
End Sub

[ZaSpai]

Thanks all for your prompt replies.

I ended up using Greg's method of defining a subset of content controls first, which has worked perfectly and I have adapted for other code in the same document.