Tvinge dato til neste onsdag

Når Alastair ut et dokument han ønsker å automatisk sette datoen i dokumentet til datoen for den påfølgende onsdag. For eksempel, hvis dag er torsdag den 13., ville Alastair ønsker å vise onsdag 19. hvis dokumentet er skrevet ut nå, eller på en hvilken som helst dag frem til og med den 19. selv. Fra neste torsdag (20.) Alastair ønsker datoen som skrives ut til å være den 26., og så videre.

Det er ingen fornuftig eller praktisk måte å gjøre dette ved hjelp av felt i et dokument. (Jeg har synes noen "plukke en fremtidig dato" felt kombinasjoner, men de er virkelig gigantisk og ikke for tilfeldig bruk.) En bedre løsning er å bruke en makro til å sette inn, ved innsettingspunktet, dato for uansett neste onsdag skjer å være. Følgende er et eksempel som viser hvor enkelt en slik makro kan være:

Sub ForceWednesday ()
Dim dMyDate Som Dato
dMyDate = Dato
Mens WeekDay (dMyDate) <> 4
dMyDate = dMyDate + 1
Wend
Selection.TypeText Tekst: = Format (dMyDate, "mmmm d, åååå")
End Sub

Når du kjører makroen, tildeler det gjeldende dato til dMyDate variabel. Denne variabelen er kontinuerlig økes inntil ukedag er 4 (onsdag). Datoen blir deretter formatert og skrevet på plasseringen av innsettingspunktet.

Makroen kan enkelt endres til å alltid sette den neste onsdag dato i et bestemt sted i dokumentet. Alt du trenger å gjøre er å endre den slik at den søker etter, si, et bokmerke og erstatter bokmerket med formatert dato. Du kan selv sette opp Word slik at makroen kjøres under BeforePrint arrangementet, som betyr at det vil bli utført like før utskrift.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (3849) gjelder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Word (Word 2007 og senere) her: Tvinge dato til neste onsdag.