Contar caracteres "reales"
Rio
¿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
Monica May
> .. 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
Monica May
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
Rio
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" <t...@NOSPAM.teladearana.es> escribió en el mensaje
news:eRfjiSWs...@TK2MSFTNGP02.phx.gbl...
Infinitogool
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" <t...@NOSPAM.teladearana.es> escribió en el mensaje
news:eRfjiSWs...@TK2MSFTNGP02.phx.gbl...
>
Rio
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" <Riop...@telefonica.net> escribió en el mensaje
news:u8Ps1%23OsIH...@TK2MSFTNGP02.phx.gbl...
Monica May
hola chicos :-)
Gracias Rio por la aportacion:
Pero ten cuidado en la seleccion de caráteres o frases o parrafos, puesto
que Word las marcas de parrafo que tengas en el documento las cuenta como
caracteres :( por ejemplo en en la frase siguiente >>
Hace un dia maravilloso.
son 23 pulsaciones [ si seleccionas sin tener cuidado de no seleccionar la
marca de parrafo ultima de la frase... la macro te lo contabilizara bien
pero si no se tiene cuidado te lo contabilizara mal te contabilizara lo
siguente >>
pulsaciones basicas >> 24
pulsaciones dobles >> 2
caracteres totales >> 26
lo mismo sucederia cuando le das a la tecla [enter] por si quieres
contabilizar una pagina completa :-)
y muchas Gracias Pedro ;-) !
Saludos
Monica
-- el codigo ---
Rio
Totalmente de acuerdo contigo.
Un abrazo...
"Monica May" <t...@NOSPAM.teladearana.es> escribió en el mensaje
news:%236F0Tpb...@TK2MSFTNGP02.phx.gbl...
Monica May
gracias de nuevo rio :-)
otra cosa >>
para la correccion ortografica de documentos >>
Cuidado con los temas de auto -corrección [ por el tema de las mayusculas al
iniciar parrafos, acentos, palabras invertidas, etc....]
Luego tambien habria que considerar todo el tema de las tabulaciones,
retrocesos, bloqueo mayusculas [ por el tema de los titulos >> CAPITULO UNO
o simplemente el escribir una palabra en mayuscula [ Una pulsacion +
caracteres escritos ] etc....]
Tambien habria que tener cuidado si los documentos contienen tablas :)
porque si se inserta una tabla como lo contabilizarias ? [ maneras de
insertar tablas en documentos hay muchas :D ...]
luego los caracteres que nos da el codigo que nos has ofrecido no es del
todo correcto ya que caracteres reales [no son el total] y da fallos a la
hora de borrado de frases en documento [ cuidado que word graba muchos
caracteres del estilo marcas de parrafo contabilizandolos asi como
caracteres....]
si quieres contabilizar pulsaciones se tienen que tener en cuenta muchos
factores ;-) !!
Saludos
Monica