Dim fp As String 'путь к файлу
  Dim fid As Integer 'идентификатор сессии файла
  Dim sText As String 'строка из файла
  Dim j As ContentControl
  fp = "путь_к_файлу"
  
  
  Application.ScreenUpdating = False
  
  On Error Resume Next 'на случай, если это календарь или другой ЭУС
  
  'для каждого элемента управления
  For Each j In ActiveDocument.ContentControls
    j.DropdownListEntries.Clear
    If j.Type = wdContentControlComboBox Or j.Type=wdContentControlDropdownList Then
      'строка состояния
      Application.StatusBar = j.Title
    
      'выпадающий список
      With j.DropdownListEntries
      
        'очистить
        .Clear
        fid = FreeFile
        Open fp For Input As #fid
        Do While Not EOF(fid)
          Line Input #fid, sText
          .Add Text:=sText, Value:=sText
        Loop
        Close #fid
      End With
    End If
  
  Next