[VBA] Probar un carácter especial marcado
multiboute
-
Fxbrg Mensajes publicados 715 Estado Miembro -
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...
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