Macro que inserte fecha sin actualizar

Uno de mis lectores me consultó el otro día como crear una macro que permita insertar en un documento de Word la fecha del día en que crea el documento, pero que esta no se actualice según vayan pasando los días.

Para ello, hemos de hacer doble clic en This Document dentro de la plantilla Normal. Para ello, recuerda mostrar el panel Explorador de proyectos

A continuación, escribimos el siguiente procedimiento si queremos que se inserte al crear un documento nuevo.

Private Sub Document_New()

End Sub

Por último, insertamos el siguiente código entre ambas líneas

Selection.InsertDateTime DateTimeFormat:="d-MMM-yy", InsertAsField:=False, _
DateLanguage:=wdSpanishModernSort, CalendarType:=wdCalendarWestern


Selection.InsertDateTime: elegimos insertar la función Fecha-Hora
DateTimeFormat: establecemos el formato de la fecha o de la hora
InsertAsField: establecemos si se tratará de una fecha u hora actualizables
DateLanguage: Establecemos el idioma en que se mostrará la fecha
CalendarType: establecemos el tipo de horario que aplicamos

Nota: Si queremos que se inserte la fecha al abrir un documento existente, hemos de establecer en vez de Private Sub Document_New(), Private Sub Document_Open().
Nota: El código funciona igualmente sin establecer tantos parámetros opcionales con solo escribir lo siguiente:

Private Sub Document_New()

Selection.InsertDateTime InsertAsField:=False

End Sub

---

Para cualquier consulta que necesites realizar para utilizar cualquier tipo de software que tengas, no dudes en escribir a

h2oxigeno@gmail.com

0 comentarios

Redactado en: Macros Word