contador de tiempo

Hola:
Word tiene una herramienta que te permite contar las palabras que has
escrito. Luego es una simple división. La herramienta la puedes encontrar en
Herramientas / Contar Palabras.
Si lo deseas puedes crear una macro y la asocias a un botón y resulta más
fácil el cálculo.
Marta PM
Saúdos/Saludos
MVP Office


Gracias por votar si el post te parece útil

http://www.fermu.com


"Smoke" wrote:

Utilizando el Word para escribir conferencias echo en falta un contador de tiempo que me
informe lo que durará el "ladrillo" que voy a decir. La fórmula es muy fácil, 180 palabras
por minuto. ¿ Alguien sabe si existe esta herramienta? En caso de que sea sencillo
programar algo así ¿algún alma caritativa que se preste a ello?

un saludo y agradeciendo cualquier sugerencia
Smoke

"Marta PM [MVP Office]" escribió en el mensaje
news:
| Hola:
| Word tiene una herramienta que te permite contar las palabras que has
| escrito. Luego es una simple división. La herramienta la puedes encontrar en
| Herramientas / Contar Palabras.
| Si lo deseas puedes crear una macro y la asocias a un botón y resulta más
| fácil el cálculo.
| --
| Marta PM
| Saúdos/Saludos
| MVP Office
|
|
| Gracias por votar si el post te parece útil
|
| http://www.fermu.com
|
|
| "Smoke" wrote:
|
| > Utilizando el Word para escribir conferencias echo en falta un contador de tiempo que me
| > informe lo que durará el "ladrillo" que voy a decir. La fórmula es muy fácil, 180
palabras
| > por minuto. ¿ Alguien sabe si existe esta herramienta? En caso de que sea sencillo
| > programar algo así ¿algún alma caritativa que se preste a ello?
| >
| > un saludo y agradeciendo cualquier sugerencia
| > Smoke
| >
| >
| >

"Marta escribió:"... Word tiene una herramienta que te permite contar las palabras... Si lo
deseas puedes crear una macro..."

[Smoke]

Gracias Marta. Sé que hay un contador de palabras. Lo que trato de encontrar es algo (una
macro quizás) que me permita ver el tiempo total a medida que estoy escribiendo. Sin tener que
hacer las cuentas a mano dividiendo el numero de palabras entre 180... Y como se supone
fácilmente no sé hacer macros

Hola:
Pues las macros tampoco son mi fuerte, pero he intentado escribir una y a
ver si te sirve. La macro cuenta las palabras del doumento y las divide entre
el número de palabras por minuto que tú has dicho (180) y transforma la
duración del documento a un formato de H:mm:ss.
Supongo que se podría mejorar bastante, pero como una primera aproximación
espero que te sirva:
Sub Calculartiempo()
Dim numPalabras As Long
Dim min As Long
Dim temphora, hora, tempminuto, tempminutos, minutos, tempsegundo,
tempsegundos, segundos As Long
'Lo primero que hacemos es contar las palabras que tiene el documento.
Set temp = Dialogs(wdDialogToolsWordCount)
temp.Execute
numPalabras = temp.Words
'Aquí establecemos el número de palabras por minuto
palabrasmin = 180
'Ahora calculamos los minutos de duración
min = numPalabras / palabrasmin
'Ahora transformamos los minutos a un formato de H:mm:ss
'mediante el uso de variables temporales
temphora = min / 60
hora = Fix(temphora)
tempminuto = temphora - hora
tempminutos = tempminuto * 60
minutos = Fix(tempminutos)
tempsegundo = tempminutos - minutos
tempsegundos = tempsegundo * 60
segundos = Fix(tempsegundos)
MsgBox "Esta conferencia durará " & hora & " horas " & _
minutos & " minutos " & segundos & " segundos"
End Sub

Puedes añadir un botón a la barra de herramientas para que sea más sencillo
de usar. Aquí tienes un pequeño tutorial de cómo añadir la macro y un botón a
la barra de herramientas:
http://www.fermu.com/content/view/117/2/lang,es/

Espero tus comentarios

Marta PM
Saúdos/Saludos
MVP Office


Gracias por votar si el post te parece útil

http://www.fermu.com


"Smoke" wrote:

"Marta escribió:"... Word tiene una herramienta que te permite contar las palabras... Si lo
deseas puedes crear una macro..."

[Smoke]

Gracias Marta. Sé que hay un contador de palabras. Lo que trato de encontrar es algo (una
macro quizás) que me permita ver el tiempo total a medida que estoy escribiendo. Sin tener que
hacer las cuentas a mano dividiendo el numero de palabras entre 180... Y como se supone
fácilmente no sé hacer macros

"Marta escribió:".. Pues las macros tampoco son mi fuerte... pero he
intentado escribir una..."

[Smoke]

Genial Marta !! Ahora es comodísimo escribir y ver la duración. Te
guardaré un sugus por si te veo algun dia.
Menos mal que me pusiste la página de Fermu para habilitar el invento...
Despues estuve haciendo pruebas... (debe ser bonito hacer macros) , y es
que me fijé que no contaba segundos... Intentando desentrañar la lógica de
lo que tú habías hecho hice un pequeño cambio que pego aqui

Sub Calculartiempo()
'Marta dic 2005, ver carpeta "cosas" en Outlook

Dim numPalabras As Long
Dim min As Long
Dim temphora, hora, tempminuto, tempminutos, minutos, tempsegundo,
tempsegundos, segundos As Long
'Lo primero que hacemos es contar las palabras que tiene el documento.
Set temp = Dialogs(wdDialogToolsWordCount)
temp.Execute
numPalabras = temp.Words
'Aquí establecemos el número de palabras por segundo
palabrasseg = 3
'Ahora calculamos los segundos de duración
seg = numPalabras / palabrasseg
'Ahora transformamos los segundos a un formato de H:mm:ss
'mediante el uso de variables temporales
temphora = seg / 3600
hora = Fix(temphora)
tempminuto = temphora - hora
tempminutos = tempminuto * 60
minutos = Fix(tempminutos)
tempsegundo = tempminutos - minutos
tempsegundos = tempsegundo * 60
segundos = Fix(tempsegundos)
MsgBox "Esta conferencia durará " & hora & " horas " & minutos & " minutos "
& segundos & " segundos"
End Sub