contador de tiempo

"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