Perhaps:
Option Explicit
Dim StrOption As String
Private Sub Document_ContentControlOnEnter(ByVal CCtrl As ContentControl)
StrOption = CCtrl.Range.Text
End Sub
Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean)
Application.ScreenUpdating = False
Dim i As Long, j As Long, StrID As String, StrAdd As String
With CCtrl
If .Title = "Pais" Then
If StrOption = .Range.Text Then Exit Sub
Select Case .Range.Text
Case "Argentina": StrID = "DNI,CUIL": StrAdd = ""
Case "Chile": StrID = "Cedula de Identidad": StrAdd = "Fonasa o Isapre,Monto UF Plan de Isapre"
Case "Colombia": StrID = "Cedula de Identidad": StrAdd = "EPS,ARL,AFP,CCF"
Case "Cost Rica": StrID = "Cedula de Identidad,NSS": StrAdd = ""
Case "El Salvador": StrID = "DUI,NSS": StrAdd = ""
Case "Guatemala": StrID = "DPI,NSS": StrAdd = ""
Case "Honduras": StrID = "Cedula de Identidad": StrAdd = ""
Case "Mexico": StrID = "CURP,RFC,IMSS": StrAdd = ""
Case "Nicaragua": StrID = "Cedula de Identidad,NSS": StrAdd = ""
Case "Peru": StrID = "DNI": StrAdd = "AFP"
Case "Uruguay": StrID = "Cedula de Identidad": StrAdd = ""
Case Else
.Type = wdContentControlText
.Range.Text = ""
.Type = wdContentControlDropdownList
StrID = "": StrAdd = ""
End Select
With ActiveDocument
For i = 1 To .SelectContentControlsByTitle("ID").Count
With .SelectContentControlsByTitle("ID")(i)
.DropdownListEntries.Clear
.Type = wdContentControlText
.Range.Text = ""
.Type = wdContentControlDropdownList
For j = 0 To UBound(Split(StrID, ","))
.DropdownListEntries.Add Split(StrID, ",")(j)
Next
End With
Next
For i = 1 To .SelectContentControlsByTitle("Addicionales").Count
With .SelectContentControlsByTitle("Addicionales")(i)
.DropdownListEntries.Clear
.Type = wdContentControlText
.Range.Text = ""
.Type = wdContentControlDropdownList
For j = 0 To UBound(Split(StrAdd, ","))
.DropdownListEntries.Add Split(StrAdd, ",")(j)
Next
End With
Next
End With
End If
End With
Application.ScreenUpdating = True
End Sub