Contar caracteres "reales"

hola Rio !

Mostrar la cita

.. diseñar un procedimiento que cuente las pulsaciones existentes en un
documento o en parte de él?

No me sirve la opcion "Contar palabras", ya que no extrae las pulsaciones
reales. Para Word, la palabra "Camión" son 6 caracteres. Yo necesito
contar 8 (2 para la "C" mayúscula, y otros 2 para la "o" con tilde.

apuff :-S !!

Bien a ver que me aclare necesitas contar las pulsaciones como por ejemplo
antaño las maquinas de escribir ?

Y todo esto por programacion en Word ?

esto :-\ ejem :D y no te serviria un soft para estos menesteres ?

pues no sep nunca me lo habia planteado esto :D a ver mañana te comento
algo :)) !!

Saludos
Monica


www.fermu.com
www.teladearana.es

Estoy pensando eh? que no lo he probado pero se puede hacer quiza algo con
la >> [function len] y luego que busque mayusculas y las cuente x 2 [ y...
todo esto para texto seleccionados] perooo tendria que hacer mis pruebas asi
que ya comentare :D !!

Saludos
Monica

Hola Mónica:

Ante todo agradecerte tus molestias. Te cuento:

Se trata precisamente de eso, de hacer correcciones ortográficas con
pulsaciones reales.

En principio me sirve cualquier programa que me permita llevar el texto
almacenado en el documento de Word y contar su número real de caracteres.

Pero, ya es cuestión de principios. A nivel de programación hice algunas
"cosillas" en Excel y, fundamentalmente, en Access. Lo que me cuesta más es
aplicarlas a Word.

El primer gran problema que encuentro es la forma de tratar el texto del
documento (en su totalidad o parte de él).


En el momento que tenga una variable cuyo contenido sea el texto del
documento, lo demás es coser y cantar; pero me falta ese "pequeño-gran paso
inicial".


Seguiré investigando. Espero tus noticias, y muchas gracias de nuevo.

"Monica May" escribió en el mensaje
news:
Mostrar la cita

Estoy pensando eh? que no lo he probado pero se puede hacer quiza algo con
la >> [function len] y luego que busque mayusculas y las cuente x 2 [
y... todo esto para texto seleccionados] perooo tendria que hacer mis
pruebas asi que ya comentare :D !!

Saludos
Monica

Hola Monica
en esta dirección viene una macro para contar caracteres, espacios
tabulaciones marcas de parrafo
http://support.microsoft.com/kb/136861/en-us/
pero es para Microsoft Word 95a
mis conocimientos no llegan para adaptarla
... si sirve para algo

un saludo
Pedro J.
P.D.
aprovecho xa agradecerte todas las dudas que nos resuelves

"Monica May" escribió en el mensaje
news:
Mostrar la cita

Estoy pensando eh? que no lo he probado pero se puede hacer quiza algo con
la >> [function len] y luego que busque mayusculas y las cuente x 2 [
y... todo esto para texto seleccionados] perooo tendria que hacer mis
pruebas asi que ya comentare :D !!

Saludos
Monica

Hola a todos. Ya lo he solucionado. Supongo que se podrá mejorar, pero
funciona... :-)

Os paso el código:


Public Sub Contar()
Dim caracteres_seleccionados As Integer
Dim caracteres_finales As Integer
Dim doble_pulsacion As Integer
Dim cont As Integer
Dim total As Integer
Dim encontrada As Byte
Dim Dobles As String
Dim mensaje As String
Dim opc As Byte

Dobles = "áéíóúüABCDEFGHIJKLMNÑOPQRSTUVWXYZ!" &
"·$%&/()=?¿*^ç¨_:;>}{][#@|\ª"
doble_pulsacion = 0
caracteres_seleccionados = Selection.Characters.Count - 1

For cont = 1 To caracteres_seleccionados
Set letra = Selection.Characters.Item(cont)
encontrada = InStr(1, Dobles, letra)
If encontrada <> 0 Then
doble_pulsacion = doble_pulsacion + 1
encontrada = 0
End If
Next
total = caracteres_seleccionados + doble_pulsacion

mensaje = "Pulsaciones básicas... " & caracteres_seleccionados & Chr(10) &
Chr(10) & _
"Pulsaciones dobles. " & doble_pulsacion & Chr(10) & Chr(10) &
_
"Caracteres totales " & total

opc = MsgBox(mensaje, vbOKOnly, "Mecanografía. Caracteres reales")
End Sub

Gracias, Mónica. Gracias Pedro J.

Seguiré por aquí por si puedo resultaros útil para alguna cosilla.

Un abrazo








"Rio" escribió en el mensaje
news:u8Ps1%
Mostrar la cita

Hola :

¿Alguien me podría dar una "pista" para diseñar un procedimiento que
cuente las pulsaciones existentes en un documento o en parte de él?

No me sirve la opción "Contar palabras", ya que no extrae las pulsaciones
reales. Para Word, la palabra "Camión" son 6 caracteres. Yo necesito
contar 8 (2 para la "C" mayúscula, y otros 2 para la "o" con tilde.

A través de un módulo, en Visual Basic, sería posible analizar y comparar
cada uno de los caracteres existentes en el documento.

Mi principal problema es como creo el bucle que me va a permitir analizar
carácter a carácter


¿Me podéis ayudar?


Muchas gracias por todo :-)

pd: Utilizo Word XP