Generere en liste over datoer

April 21  by Eliza

For enkelte dokumenter, er det nyttig å ha en liste med datoer som du kan bruke som grunnlag for arbeidet ditt. For eksempel kan du ha for å lage en rapport som viser alle datoene mellom nå og slutten av året, sammen med en persons navn eller et prosjektnavn til høyre for datoen. Utgangspunktet er selvfølgelig blir listen over dato.

Det er et par måter du kan nærme generere listen. En enkel metode er å bruke Excel i forbindelse med Word. Excel Autofyll-funksjonen gjør generere en liste med datoer utrolig lett. Når du har en liste i Excel, kan du kopiere og lime den inn i Word-dokument, eller du kan bruke utskriftsfletting til å fusjonere datoene inn i dokumentet (hvis det tilnærming som passer for dine behov).

Hvis du foretrekker å ikke bruke Excel eller annen grunn, er den beste løsningen å bruke en makro. Følgende makro skaper svært raskt en liste over alle datoene for året 2009:

Sub PrintYearDays ()
Dim DateToday Som Dato
Dim T As Integer

Fordi datoen kommer til å bli endret, lagre det
DateToday = Dato
Date = som nr 12/31/2008 #

For T = 1 til 365
Selection.TypeText Tekst: (, _ = Format Dato + T
"Mmmm dd åååå")
Selection.TypeParagraph
Neste T

«Gjenopprett dagens dato
Date = DateToday
End Sub

Legg merke til at makro fungerer ved å tilbakestille datoen på systemet ditt. Dagens gjeldende dato lagres i DateToday variabel, og deretter datoen tilbakestilles til startdatoen for din rekkevidde. Hvis du ønsker å ha den makro arbeid for en annen datointervall, bare endre startdato, sammen med sluttverdien av For ... Neste loop.

Hvis du trenger for å lage oppdaterte lister, og du aldri helt vet hva start- og sluttdatoer i området vil være, deretter en annen makro tilnærming er mer fornuftig. Spør følgende makro deg for både en begynnelse og sluttdato:

Sub ListDates ()
Dim ListDate som Date
Dim Startdato Som Dato
Dim Sluttdato Som Dato
Dim Gjentas As Integer

'Gets brukerundersøkelser
Startdate = InputBox ("Skriv inn startdatoen.", _
"Start Date", "Startdato")
Sluttdato = InputBox ("Skriv inn sluttdato.", _
"End Date", "Sluttdato")

«Går det startdato i dokumentet
Selection.TypeText Tekst: = Format (Startdate, _
"Dddd, MMMM dd, åååå")
Selection.TypeText (vbCr & vbLf)

'Bestemmer antall datoer for å skrive ut
Gjentar = DateDiff ("d", Startdato, Sluttdato)

'Loops å skrive ut listen over datoer
For i = 1 Til Gjentar
ListDate = DateAdd ("d", i, Startdate)
Selection.TypeText Tekst: = Format (ListDate, _
"Dddd, MMMM dd, åååå")
Selection.TypeParagraph
Neste jeg
End Sub

Startdato og ENDDATE variabler, satt av dine innspill, avgjør hvor mange ganger For ... Neste sløyfe gjentas.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (3864) 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: Generere en liste over datoer.