Microsoft Office Forums - View Single Post - Combo Box Content Control: How to update the list throughout the whole document?

gmayor · 03-15-2018, 02:52 AM

The short answer is no, however if the content controls are titled and/or tagged you can loop through the content controls and process only those that have a particular title/tag.

You can title/tag the controls if necessary with http://www.gmayor.com/ExtractDataFromForms.htm

If you title the similar fields with a common name e.g. Table1_Name Table2_Name then you can use the following to modify all the fields named like *Table e.g.

Code:

Option Explicit

Sub Macro2()
Dim oRng As Range
Dim oCC As ContentControl
Dim lngCC As Long
Dim iLst As Integer
Dim strListItem As String
Dim strTitle As String
Const strList As String = "C:\path\ccList.txt"
Dim iFile As Integer: iFile = FreeFile
    Set oRng = ActiveDocument.Range
    For lngCC = 1 To oRng.ContentControls.Count
        Set oCC = oRng.ContentControls(lngCC)
        strTitle = oCC.Title
        Debug.Print strTitle
        If strTitle Like "*Name" Then
            If oCC.Type = wdContentControlComboBox Or _
               oCC.Type = wdContentControlDropdownList Then
                'leave the prompt text and delete the rest
                For iLst = oCC.DropdownListEntries.Count To 2 Step -1
                    oCC.DropdownListEntries(iLst).Delete
                Next iLst
            End If
            'add the new list from a text file
            Open strList For Input As #iFile
            Do Until EOF(1)
                Line Input #1, strListItem
                oCC.DropdownListEntries.Add strListItem
            Loop
            Close #iFile
        End If
    Next lngCC
lbl_Exit:
    Set oRng = Nothing
    Set oCC = Nothing
    Exit Sub
End Sub