Vincular dos menús desplegables

Hola,

Antes que nada, tengo algunas preguntas:
- ¿Cuál es tu versión de Word?
- ¿Qué tipo de menús desplegables (hay 3 tipos)?
- Si la elección se realiza siempre en el menú desplegable de la página 1, ¿por qué un menú desplegable en la página 2? Basta con un enlace a la opción del primer menú...

m@rina

--
Inútil ponernos tus preguntas en privado. No las contestaré.

Buenas noches,

Entonces hace falta una macro que se dispare al salir del control de contenido. El problema es saber dónde queremos reportar el resultado de la lista desplegable. En Word, a diferencia de Excel que funciona con referencias "simples", siempre es complicado.
De hecho, un lugar puede ser varias cosas, como
- un punto específico (número de párrafos, de palabras, de caracteres, etc.)
- un objeto que puede ser numerado, como por ejemplo una tabla, una zona de texto, una sección...
- un marcador

Se usa fácilmente el marcador. El problema es que es volátil y es fácil eliminarlo sin darse cuenta.

Si sucede en un documento protegido, es más fácil. Así que sin saber cómo ni dónde quieres recuperar el texto, sin saber si el documento está protegido, aquí tienes una macro que se dispara al salir de la lista desplegable:

Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
Dim B As String
If CC.Tag = "ld" Then
B = CC.Range.Text
RemplirSignet "mon_signet", B
End If
End Sub

Public Function RemplirSignet(A As String, B As String)
' Remplaza el signo A con el texto B sin destruir A
On Error GoTo sortie
Dim Place As Long
Place = ActiveDocument.Bookmarks(A).Range.Start
ActiveDocument.Bookmarks(A).Range.Text = B
ActiveDocument.Bookmarks.Add Name:=A, Range:=ActiveDocument.Range(Place, Place + Len(B))
sortie:
End Function

Para que este ejemplo funcione, debes nombrar "Id" a la etiqueta de tu lista desplegable, e insertar un marcador en el lugar donde quieres recuperar el texto, que llamarás "mon_signet".

He utilizado la función RemplirSignet para evitar que si cambias de opinión, el marcador se borre (lo haría por defecto) al seleccionar otra opción en la lista desplegable. Explico aquí:
https://faqword.com/index.php/word/gestion-des-macros/941-inserer-texte-via-macro-a-un-emplacement-avec-signet-sans-supprimer-le-signet

m@rina