Propiedad ContentControlListEntry.Text (Word)

Devuelve o establece una cadena que representa el texto para mostrar de un elemento de lista para un lista desplegable lista de control o cuadro combinado contenido. Lectura y escritura.

Sintaxis

expresión. Texto

Expresión Expresión que devuelve un objeto ContentControlListEntry .

Comentarios

Las entradas de lista deben tener nombres para mostrar únicos. Si se intenta cambiar la propiedad Text en una cadena que ya existe en la lista de entradas, genera un error en tiempo de ejecución.

Ejemplo:

En el siguiente ejemplo, se convierte a mayúsculas el primer carácter, si está en minúsculas, del texto que se va a mostrar para cada uno de los elementos de la lista.

Dim objCC As ContentControl 
Dim objLE As ContentControlListEntry 
Dim strFirst As String 
 
For Each objCC In ActiveDocument.ContentControls 
 If objCC.Type = wdContentControlComboBox Or objCC.Type = wdContentControlDropdownList Then 
 For Each objLE In objCC.DropdownListEntries 
 strFirst = Left(objLE.Text, 1) 
 
 If strFirst = LCase(strFirst) Then 
 objLE.Text = UCase(strFirst) & Right(objLe.Text, Len(objLe.Text) - 1) 
 End If 
 Next 
 End If 
Next

El ejemplo siguiente establece el valor para el elemento de la lista basándose en el contenido del texto que se va a mostrar.

Dim objCc As ContentControl 
Dim objLe As ContentControlListEntry 
Dim strText As String 
Dim strChar As String 
 
Set objCc = ActiveDocument.ContentControls(3) 
 
For Each objLE In objCC.DropdownListEntries 
 If objLE.Text <> "Other" Then 
 strText = objLE.Text 
 objLE.Value = "My favorite animal is the " & strText & "." 
 End If 
Next

Consulte también

Objeto ContentControlListEntry

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.