¿Cómo arreglar este código de VB para word 2003?
Necesito ayuda para generar un código en VB para word 2003, estoy usando campos de formulario una lista desplegable y un campo de texto en una hoja de word 2003, lo que deseo hacer es que al momento de seleccionar una opción de la lista desplegable, entonces aparezca una frase indicada en el campo de texto, pero todo esto es para campos de formulario y no para campos del cuadro de controles como son los ComboBox y los TextBox.
Anexo la siguiente imagen para darme a entender mejor.
Y este es el código que estaba generando pero no funciona porque no se como llamar a los campos de formulario dentro del VB .
Sub ListaRango()
If ActiveDocument.FormFields("Rango") = "< 915" Then
ActiveDocument.FormFields("Temp") = "Refrigerar de 2 a 6°C"
ElseIf ActiveDocument.FormFields("Rango").Text = "915 - 1219" Then
ActiveDocument.FormFields("Temp") = "Refrigerar de 2 A 8°C"
ElseIf ActiveDocument.FormFields("Rango") = "1220 - 1524" Then
ActiveDocument.FormFields("Temp").Text = "Refrigerar de 1 A 2 °C"
ElseIf ActiveDocument.FormFields("Rango") = "1525 - 1829" Then
ActiveDocument.FormFields("Temp").Text = "Refrigerar de 5 A 6 °C"
End If
End SubEspero que alguien me pueda ayudar en este problema y me ayude a lograr a que funcione el código.
De antemano les agradezco mucho.
Nota: soy usuario novato en el código de VB y por eso se me ha dificultado tanto elaborarlo de como debería de ser para que funcione.
