Cuando Alastair imprime un documento, quiere establecer automáticamente la fecha en ese documento en la fecha del miércoles siguiente. Por ejemplo, si hoy es jueves 13, Alastair querría mostrar el miércoles 19 si el documento se imprime ahora o en cualquier día hasta el 19 inclusive. A partir del próximo jueves (20), Alastair querría que la fecha impresa fuera el 26, y así sucesivamente.

No existe una forma razonable o conveniente de hacer esto utilizando campos en un documento. (Parece que hay algunas combinaciones de campos de «elegir una fecha futura», pero son realmente gigantes y no para uso casual). Una mejor solución es usar una macro para insertar, en el punto de inserción, la fecha de lo que ocurra el próximo miércoles ser – estar. El siguiente es un ejemplo que muestra lo simple que puede ser una macro de este tipo:

Sub ForceWednesday()

Dim dMyDate As Date     dMyDate = Date     While WeekDay(dMyDate) <> 4         dMyDate = dMyDate + 1     Wend     Selection.TypeText Text:=Format(dMyDate, "mmmm d, yyyy")

End Sub

Cuando ejecuta la macro, asigna la fecha actual a la variable dMyDate. Esta variable se incrementa continuamente hasta que el día de la semana sea 4 (un miércoles). Luego, la fecha se formatea y se escribe en la ubicación del punto de inserción.

La macro podría modificarse fácilmente para colocar siempre la fecha del próximo miércoles en un lugar específico del documento. Todo lo que necesita hacer es modificarlo para que busque, digamos, un marcador y reemplace el marcador con la fecha formateada. Incluso puede configurar Word para que la macro se ejecute durante el evento BeforePrint, lo que significa que se ejecutará justo antes de imprimir.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (3849) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Forcing_the_Date_to_the_Next_Wed Wednesday [Forzando la fecha para el próximo miércoles].