[VBA] Probar un carácter especial marcado

multiboute -  
Fxbrg Mensajes publicados 715 Estado Miembro -
Hola,
estoy programando un poco en Word VBA,

busco la manera de probar el carácter una vez que está seleccionado,

para que en mi formulario pueda posicionar el botón de opción en Verdadero o Falso.

A la inversa, tengo el código para poner este carácter especial en la página de Word:

Sub insertarSimbolo(signetnom, coche)
'
' insertarSimbolo Macro inserción de una casilla marcada o no después de un marcador
' Macro grabada el 29/02/2008 por 1084417
'
ActiveDocument.Bookmarks(signetnom).Select
If coche = 1 Then

Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.InsertSymbol CharacterNumber:=-3976, Unicode:=True, Bias:=0
Selection.TypeText Text:=" "
Else

Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.InsertSymbol CharacterNumber:=-3928, Unicode:=True, Bias:=0
Selection.TypeText Text:=" "
End If

End Sub

este 'carácter' valorado en -3976 o -3928 inserta un carácter gráfico de casilla vacía o casilla marcada...

pero ahora quiero hacer lo inverso:

me posiciono en el marcador, selecciono este 'carácter'... bueno eso ya sé hacerlo...

ahora:

¿cómo probar (por un CHR$? no he encontrado el valor?) este carácter para que pueda, en el formulario, posicionar el botón correspondiente en Verdadero (marcado) o en Falso (desmarcado)?

gracias por su ayuda...
Configuración: Windows XP Internet Explorer 6.0

1 respuesta

  1. Fxbrg Mensajes publicados 715 Estado Miembro 199
     
    Hola,

    ¿Por qué no usar una casilla de verificación directamente y leer su valor en el código?

    :-)
    2