Cómo hacer un cronómetro para exámenes en su palabra a través de VBA

Soluciones de Word 28 de septiembre de 2025
Comparte ahora:

En este artículo, explicaremos cómo hacer un cronómetro que puede usar para exámenes en su Word a través de VBA.

Con el editor VBA en Word, puede crear muchas herramientas pequeñas pero útiles usted mismo. Y hoy, queremos mostrarte la forma de hacer cronómetro. Puede activarlo y usarlo siempre que Word esté abierto. Por ejemplo, será útil al realizar los exámenes.Haga un cronómetro para exámenes en su palabra a través de VBA

Insertar un módulo en el proyecto VBA

  1. En primer lugar, presione "Alt + F11" para abrir el editor de VBA en Word.
  2. Luego haga clic en el proyecto "Normal" y haga clic en "Insertar".
  3. Elija "Módulo" en ese menú.Haga clic en "Normal" -> Haga clic en "Insertar" -> Haga clic en "Módulo"
  4. Haga doble clic en el módulo para abrirlo.
  5. Presione "F4" para abrir la "Ventana de propiedades". Cambie el nombre del módulo por "modStopwatch".
  6. Luego pegue los siguientes códigos en el módulo:
Public g_dtStart As Variant
Public g_bOnTimer As Boolean

Public Sub OnTimerUpdate()
  Dim tmNextUpdate As Variant
 
  frmStopwatch.lblShowElapsedTime = Format(Now - g_dtStart, "hh:mm:ss")
  tmNextUpdate = Now + TimeValue("00:00:01")
  If g_bOnTimer Then
    Application.OnTime tmNextUpdate, "OnTimerUpdate"
  End If
End Sub
Sub TriggerStopwatch()
    frmStopWatch.Show
End Sub
  1. Finalmente, guarde los códigos.Nombre del nuevo módulo-> Pegar códigos-> Guardar códigos

Insertar un formulario de usuario

  1. En el editor de VBA, haga clic en "Insertar" y elija "UserForm".
  2. Luego haga clic en sus manijas para ajustar el tamaño del formulario.
  3. Siguiente nombrar el formulario de usuario como "frmStopwatch", establecer su título como "Cronómetro"y establezca el color de fondo. También, establecer "ShowModal" como "Falso".
  4. Haga clic en la pestaña "Ver" y seleccione "Caja de herramientas".Haga clic en "Ver" -> Elija "Caja de herramientas"
  5. En la caja de herramientas, haga clic en "Etiqueta" y dibuje seis etiquetas en una posición adecuada en el formulario de usuario, como a continuación:Insertar seis etiquetas-> Establecer cada propiedad de etiqueta
  6. Ahora, establezca propiedades para cada etiqueta.
  • Haga clic en la etiqueta 1. Luego vaya a la ventana de propiedades. Introduzca “Hora de inicio:” para el título.. Cambie el color de fondo y la fuente según sea necesario.
  • Haga clic en la etiqueta 2. Nómbralo como “lblStartTime”. Establecer "BackColor" en blanco. Luego, configure la “Fuente” correctamente.
  • Haga clic en la etiqueta 3. Escriba "Hora de finalización:" para el título. Establezca el color de fondo y la fuente de la misma manera que los de la etiqueta 1.
  • Haga clic en la etiqueta 4. Nómbrelo como "lblEndTime". Establecer "BackColor" en blanco. Luego, configure la fuente como la de la etiqueta 2.
  • Haga clic en la etiqueta 5. Ingrese "Tiempo transcurrido:" para el título. Establezca el color de fondo y la fuente de la misma manera que los de la etiqueta 1.
  • Haga clic en la etiqueta 6. Nómbrelo como "lblShowElapsedTime". Establecer "BackColor" en blanco. Luego, configure la fuente como la de la etiqueta 2.
  1. En la caja de herramientas, haga clic en "CommandButton" y cree 3 botones. Organícelos en el siguiente orden:Crear tres botones-> Establecer propiedades de botón
  2. Del mismo modo, configure las propiedades del botón.
  • Haga clic en el botón 1. Nómbralo como “btnStart”. Establezca su color de fondo. Introduzca “Iniciar temporizador” para el título.. Y configure la fuente correctamente.
  • Haga clic en el botón 2. Nómbrelo como "btnStop". Establezca su color de fondo. Ingrese "Stop Timer" para el título. Y configure la fuente correctamente.
  • Haga clic en el botón 3. Nómbrelo como "cmdClose". Establezca su color de fondo. Escriba "Cerrar" para el título. Y configure la fuente correctamente.
  1. Ahora haga doble clic en el botón “Iniciar temporizador”. E introduzca los siguientes códigos:
Private Sub btnStart_Click()
  Dim tmNextUpdate As Variant
  g_dtStart = Now
 
  frmStopwatch.lblStartTime = Format(g_dtStart, "hh:mm:ss")
  frmStopwatch.lblShowElapsedTime = Format(0, "hh:mm:ss")
  tmNextUpdate = Now + TimeValue("00:00:01")
  g_bOnTimer = True
  Application.OnTime tmNextUpdate, "modStopwatch.OnTimerUpdate", 0
End Sub

La primera y la última línea ya están allí, por lo que no es necesario que vuelva a ingresarlas. Guardar códigos.

  1. A continuación, haga doble clic en el botón "Detener temporizador". Luego ingrese estos códigos:
Private Sub btnStop_Click()
  varEndTime = Now
 
  lblEndTime = Format(varEndTime, "hh:mm:ss")
 
  g_bOnTimer = False
End Sub
  1. Haga doble clic en el botón "Cerrar" y pegue los códigos:
Private Sub cmdClose_Click()
  Unload Me
End Sub

Pegar códigosLuego, puede asignar un botón para macro "GatilloCronómetroEn cuanto a los pasos detallados para asignar un botón a una macro, puede consultar este artículo: Cómo eliminar el formato de los textos pegados con macro y VBA en su Word

Aquí hay una demostración del uso del cronómetro:

Elija la herramienta de recuperación adecuada

Con más dispositivos digitales involucrados en el almacenamiento de información, la recuperación de datos se ha convertido en un tema candente en la actualidad. Por ejemplo, si experimenta un colapso de Word, debe obtener una herramienta para reparar palabra corrupta. Entonces es de suma importancia obtener una herramienta adecuada.

Introducción del autor:

Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo recuperar xlsx y pdf reparar productos de software. Para más información visite www.datanumen.com

Comparte ahora:

Los comentarios están cerrados.