Caracteres especiales

21/05/2004 - 22:39 por Fernando - Teleline | Informe spam

Tengo un problema para hacer una macro en Word. Estoy intentando
hacer una tabla que me muestre los caracteres extendidos y su
codigo ASCII, para poder escribirlos luego con una combinacion de
teclas

Ya se que este grupo es de Excel pero la pregunta es muy sencilla y
de programación

Bueno, la tabla de codigos que tengo es la misma que aparece en
esta pagina:

http://www.prontopc.com/modules.php...e&sid1

De forma que el caracter 244 corresponde a la "marca de parrafo"

La macro que hice fue (extracto):
_________________________________________________________________
For I = 33 To 256
Selection.TypeText Text:=I
Selection.MoveRight Unit:=wdCell (para saltar a la sgte celda)
Selection.TypeText Text:=ChrW(I)
Selection.MoveRight Unit:=wdCell
Next I
_________________________________________________________________

Bueno, el problema es que me lista la "marca de parrafo" en el
caracter 182, en vez de en el caracter 244. Total no me sirve para
nada. Osea, cuando pulso en el teclado Alt+182 me sale una "A
mayuscula con un pico encima" y tengo que poner Alt+244 para que
salga la marca de parrafo

He probado a cambiar ChrW() por Chr() y el resultado es el mismo

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

23/05/2004 - 01:34 | Informe spam

hola, Fernando !

... problema para ... tabla ... caracteres extendidos y su codigo ASCII, para ... una combinacion de teclas [...]
... la tabla de codigos que tengo es la misma que aparece en [...]
... el caracter 244 corresponde a la "marca de parrafo" [...]
... macro que hice [...] ... problema ... me lista la "marca de parrafo" en el caracter 182 [...]

[me parece que conviene...] 'distinguir' entre ascii [ms-dos] y ansi [ms-windows] ;)
ascii = american standard code for information interchange
ansi = american national standard institute
[ademas de la pagina de codigos que este usando windows segun configuracion regional y 'otras cosillas'] :))
[incluso] es distinto 'el resultado' de combinar [p.e.] {Alt}+244 'que'... {Alt}+0244 :))

[p.e. en excel] la siguiente formula copiada desde la fila 1 hasta la fila 255...
'pondra' los caracteres 'imprimibles' =>ansi/ascii<= en cada celda: =Caracter(Fila())

aqui 'veras' =>diferentes<= 'resultados' ['mismo-codigo' {Alt}+{teclado_numerico}] :((
tabla y descripciones ascii
http://www.italysoft.com/utility/co...table.html

caracteres especiales ansi [ms-windows] ascii [ms-dos]
http://agg3333.ifas.ufl.edu/ansi.htm

informacion 'complementaria' en...
tabla de codigos para caracteres ascii extendidos
http://www.asciitable.com/
tablas de caracteres ascii
http://www.jimprice.com/jim-asc.htm
http://www.jimprice.com/ascii-128-255.gif
tabla de secuencias html caracteres iso latin
http://www.bbsinc.com/symbol.html
ascii para html [decimal]
http://members.efn.org/~gjb/asciidec.html

saludos,
hector.

Responder a este mensaje

#2 Fernando - Teleline

23/05/2004 - 20:05 | Informe spam

Héctor Miguel escribió el 23 may
2004 esto mismo:

[ademas de la pagina de codigos que este usando windows segun
configuracion regional y 'otras cosillas'] :)) [incluso] es
distinto 'el resultado' de combinar [p.e.] {Alt}+244 'que'...
{Alt}+0244 :))

Gracias Hector

Has sido de mucha ayuda. En realidad solo tengo que poner Alt+0188
para que aparezca la "marca de parrafo" (que es lo que tengo
listado e imprimido)

Intente cambiar la macro para que NO cogiera ceros a la izquierda
cambiando el formato del numero o pasando la variable a byte pero
no hubo manera:

For I = 33 To 256
Dim micodigo
micodigo = Format(I, "000")
Dim micodigo1
micodigo1 = ChrW(micodigo)
Next I

For I = 33 To 256
Dim blabla
blabla = ChrW(CByte(I))
Debug.Print blabla
Next I

No importa, tal como lo tengo me sirve para lo que quiero.

Gracias y saludos

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida