contar acentos en word

Funciona perfectamente, aunque tengo un documento de 46 paginas con 1841
parrafos, 3771 lineas ... y se me queda colgado el word. No importa lo
hare a pedazos, ¿existiria la posibilidad de que me contara solo la
seleccion de lo que yo le marcara?

Muchas gracias, si tuviera el don de los pajaros de volar me desplazaria
hasta cada uno de sus lugares para agradedeceserlo enormente.

Gracias,

Juanjo

Pilar Mueckay [MVP - Office] wrote:

OECII Excelente! :-) La macro tiene una mejor solución que la que yo había
pensado.

Juanjo, supongo que en pruebas de mecanografía también cuenta la "ñ", al
código que te plantea OECII, sólo debes añadirle otra línea

"Â", "Ê", "Î", "Ô", "Û", _
"ñ", "Ñ"

O los caracteres que pienses que valen por dos
(el signo menos abajo es para indicar que en realidad es una línea continua
pero por razones de espacio y comprensión se la pone en dos)

Hola, si el documento es muy largo, cambia la macro por esto y así seguro que ya
no se te va a colgar el word (aunque igual tardará su tiempo) La función
ContarPalabras debe ser la misma del post anterior:

Sub contarCaracteres2()
'esta macro cuenta el numero de letras de un documento
'contando dos veces los caracteres acentuados
Dim i As Long
Dim cont As Long
cont = 0
For i = 1 To ActiveDocument.Words.Count
If ActiveDocument.Words(i) <> vbCr Then
cont = cont + LongPal2(ActiveDocument.Words(i))
End If
'Cada vez que procese 150 palabras dejamos libre al procesador
if i mod 150 = 0 then
DoEvents '< Le indica a Windows que atienda otro proceso
end if
Next
MsgBox "El documento actual tiene " & cont & " caracteres"
End Sub


Por otro lado si quieres que sólo haga el conteo en la selección cambia la macro
por esta:
(Es simplemente cambiar a ActiveDocument por Selection)

Sub contarSelección()
'esta macro cuenta el numero de letras de un documento
'contando dos veces los caracteres acentuados
Dim i As Long
Dim cont As Long
cont = 0
For i = 1 To Selection.Words.Count
If Selection.Words(i) <> vbCr Then
cont = cont + LongPal2(ActiveDocument.Words(i))
End If
'Cada vez que procese 150 palabras dejamos libre al procesador
if i mod 150 = 0 then
DoEvents '< Le indica a Windows que atienda otro proceso
end if
Next
MsgBox "El documento actual tiene " & cont & " caracteres"


OECII
Organización y Estructura del Computador II - UCV
Caracas - Venezuela