Sí, puedes usar códigos de campo TIME. Actualice cada (F9) para que muestre la hora actual y luego bloquéelo (Ctrl + F11) para que el valor no cambie cuando actualice los otros campos en el documento.
Si desea algún tipo de elemento de la interfaz de usuario, para que esto suceda con un clic del mouse, acabo de juntar un ejemplo extremadamente crudo , donde inserté uno de los controles heredados del Botón de comando ActiveX (en la pestaña Desarrollador , haga clic en Herramientas heredadas > Botón de comando ), agregó un espacio después y luego insertó un campo HORA. Luego agregué este fragmento de código al botón (haga clic con el botón derecho y haga clic en Ver código ) para mover el foco fuera del botón, mover el cursor 2 espacios a la derecha (en el campo), actualizar y bloquear el campo, y luego mueva el foco fuera del campo:
Private Sub CommandButton1_Click()
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.Fields.Update
Selection.Fields.Locked = True
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
A menos que alguien desbloquee manualmente el campo (Shift + Ctrl + F11), cada botón se puede usar solo una vez, lo que lo hace apropiado para una marca de tiempo, que es lo que parece que realmente buscas. No es bonito, pero tal vez es un punto de partida en el que puedes trabajar en algo más sofisticado.
Alternativamente, dado que la hora no necesita actualizarse, la pestaña Insertar incluye un botón Insertar fecha y hora que puede insertar una marca de tiempo como texto estático. Puede grabar una macro haciendo clic en el botón y seleccionando el formato de hora que desee. O, para usar un control de botón de comando nuevamente, puede agregar un código como este, que solo llama Insertar fecha y hora para insertar la hora inmediatamente después del botón:
Private Sub CommandButton1_Click()
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.InsertDateTime DateTimeFormat:="h:mm:ss am/pm", InsertAsField:=False, DateLanguage:=wdEnglishUS, CalendarType:=wdCalendarWestern, InsertAsFullWidth:=False
End Sub